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ABSTRACT 


This dissertation introduces an Evolution Control System (ECS) for the Computer 
Aided Prototyping System CAPS. The purpose of the ECS is to automate the scheduling 
and the assignment of tasks to the software designers based on management policies and 
the dependencies in a model of the software configuration. The ECS controls the software 
evolution process in an incrementally evolving software system where the steps to be 
scheduled are only partially known. Time required, the set of sub-tasks for each step, and 
the input/output constraints between steps are all uncertain, and are all subject to change as 
evolution steps are carried out. The ECS provides computer assistance for managing such 
changes and partially automates the control of the design team and the project data. 

The ECS manages both the development/prototyping data and the design team through 
scheduling the software tasks and assigning them to members of the design team. The main 
goals of this system are: 1. Managing the evolution steps from the moment they are 
proposed until their completion. 2. Reaching a feasible schedule that meets the deadline 
requirements or minimizes the largest amount that a deadline is missed if all deadlines 
cannot be met and provides for the earliest possible completion for those steps that either 
do not have deadlines or have under-estimated deadlines. 3. Maximizing the efforts of 
software designers by maximizing concurrent assignments. 4. Supporting incremental 
replanning as additional information becomes available. 5. Minimizing wasted design 
effort due to schedule reorganization as well as workers forced to wait for completion of 
sub-tasks. 6. Insuring system integrity via propagation of change consequences (induced 
steps) to maintain the global consistency of the database and providing serializability of 
updates. 7. Efficient use of space and time for the design database and scheduling 
algorithm. 8. Automating the process of determining which versions of the subcomponents 


belong to each version of the entire system. 9. Providing computer assistance for task 


1V 


decomposition during planning using decomposition and dependency information of the 
previous version of the software system. 

The proposed ECS system represents a management layer between the user interface 
(supporting two user classes, managers and designers) and the design database which 
contains a record of the versions of all software objects and planned, active and completed 


evolution steps. 
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I. INTRODUCTION 


A. PURPOSE 


The main objective of this dissertation 1s to design an evolution control system that can 
provide automated assistance for the software evolution process in an uncertain 
environment where designer tasks and their properties are always changing. The software 
evolution process involves: 1) The software users (customers) who initiate the change 
requests whether they are corrective, adaptive, or perfective changes [3], 2) The software 
manager or change control board who reviews these change requests and approves/rejects 
the changes for implementation, 3) The evolution team that has the task of implementing/ 
verifying these changes, 4) and finally the software system under evolution that must 
preserve its consistency and keep enough information about its evolution history. 

We view an Evolution Control System (ECS) as the agent that keeps track of proposed, 
ongoing, and completed changes to a software system. It provides automated assistance to 
the software evolution manager to help him/her to make the right decisions. It automatically 
propagates change consequences by defining the set of possibly affected modules. It also 
coordinates and plans change implementation activities within the design team in a way 
that supports team work and guarantees system integrity, as well as adapting itself to the 
dynamic nature of the evolution process where new changes arrive randomly and current 
modifications are themselves subject to change as more information becomes available. 

The above definition implies that an ECS has two main functions. The first is to 
control and manage evolving software system components (version control and 
configuration management, VCCM ) and the second is to control and coordinate evolution 
team interactions (planning and scheduling software evolution tasks which we refer to as 
evolution steps). 

The ECS system should manage both human resources and the design database and 
provide the help needed by the software manager as well as facilitating the designers’ tasks. 
This system provides the required algorithms for coordinating and executing the activities 
mentioned above as well as the algorithms for reaching and maintaining a feasible 


schedule, if one exists, that meets the deadline requirements, reduces/avoids rollbacks, and 


insures system integrity in an uncertain environment where the set of evolution steps and 


their properties are always changing. 


B. SOFTWARE EVOLUTION 

Software evolution is the process of extending or modifying the functionality of a 
software system [11]. Evolution activities may be triggered by changes in user 
requirements, planned phased development of a system, or by design changes to eliminate 
errors discovered after system delivery (repair). Evolution (maintenance) activities account 
for 65% to 75% of total cost of a software system [71]. Software evolution involves change 
requests, software systems, evolution steps, customers, managers, and software engineers. 
Customers provide change requests, and the corresponding changes are controlled by the 
managers of the software system. Approved changes trigger evolution steps that produce 
new versions of the software system. Evolution steps are scheduled based on management 


policies, and are executed by the software engineers [52]. 


C. SOFTWARE EVOLUTION MODELS 


While detailed software process models are still a subject of research, there are some 
general models (paradigms) of software development that can be identified. Some of these 


software development models are[71]: 


1. The waterfall model: This model views the software process as a cascade of a number 
of phases such as requirements, specification, design, implementation, testing and 
maintenance phase. 


2. Exploratory programming: In this approach a working system is rapidly developed, 
then repeatedly modified until it reaches an adequate functionality. This model is used 
where detailed requirements cannot be specified and where adequacy rather than the 
correctness is the main goal of system designers. 


3. Prototyping: This approach is similar to the exploratory programming, but the main 
goal is establishing the system requirements. This normally followed by an implemen- 
tation of the requirements to obtain a production quality system. 


4. Formal transformation: In this approach a formal specification of the system is devel- 
oped then transformed to a program using correctness preserving transformations. 


5. System assembly from reusable components: This approach uses the assumption that 
systems are mostly made up of already existing components. This means that the sys- 
tem development becomes an assembly rather than a creation process. 


These models are normally called software life cycle models to cover the period from 
conception to retirement of a given software system. This means that the evolution 
activities can follow the same model followed in the development. In some of these models 
evolution starts after the release of the developed system, like the waterfall model in which 
the evolution activities go through the same cascaded phases of the model. In some other 
models like exploratory programming and evolutionary prototyping the current system can 
be viewed as a snapshot of an evolving system that evolves from an empty system through 


continuous iterations of evolution steps. 


D. PROTOTYPING PROCESS 

Prototyping is a technique to help establish and validate system requirements. 
Prototyping in the software process is practiced in two different forms; the first 1s "throw- 
away" prototyping where a prototype is developed with the objective of specifying system 
requirements. After the customer is satisfied with the requirements the prototype is 
discarded and the system is built from scratch. 

The second form is evolutionary prototyping where a prototype evolves via a number 
of versions to the final system. Evolutionary prototyping lends itself as an evolution model 
where the system is started from its fundamental concepts and is then iteratively modified 
in an interactive way with the customer until the system reflects the customer’s real needs 
[51]. 

Prototyping techniques include the use of executable specification languages and 


reusable software components for rapid prototype construction. 


E. PROBLEM DEFINITION 


With the complexity of software systems growing every day, more sophisticated 
development and maintenance environments are necessary to cope with the evolutionary 
nature of software systems. These systems experience iterative modifications through many 
versions to cope with the customer's changing and growing needs and the changing and 
growing software and hardware technology. 

In the context of an evolving system, a software evolution step is used to represent the 


activities of analyzing and implementing one change request. These evolution steps are 


typically only partially known. Time required, the set of sub-tasks for each step, and the 
input/output constraints among steps are all uncertain, and are all subject to change as 
evolution steps are carried out. 

Scheduling these evolution steps without taking into account their special nature, as 
mentioned above, complicates the management task of achieving the best possible 
utilization of human and machine resources. This also may lead to software rollbacks which 
waste programming efforts, and affect software consistency due to the lost coordination 
between engineers working on different evolution steps that may be related to each other. 

An evolution control system must account for all the interacting factors of the 
evolution process. These factors, as discussed above, include change requests that are 
provided by the customers and lead to the creation of corresponding evolution steps. These 
steps are controlled by the manager of the software system. Approved steps are scheduled 
for implementation by software designers. The completed steps produce new versions of 
the software system. Controlling an evolving system means coordinating these interactions 
in a way that preserves system integrity, supports team work via maximizing the number 
of concurrent assignments, avoids/reduces rollbacks, planning the required changes (steps) 
to meet the management constraints such as deadlines, precedences, and priorities, and 
maintaining a record of these change activities for history purposes. Such an evolution 
control system should be flexible enough to adapt its scheduling and planning function, in 
real-time, to the dynamic changes in current evolution steps as well as the random arrival 


of new steps. 


F. CONTRIBUTION OF THIS RESEARCH 


The main contributions of this dissertation are: 


1. Automated support for changes in plan during the execution of the plan. 


2. Automatic decision support for planning and team coordination based on design depen- 
dencies captured in the configuration model. 


3. The enhancement and implementation of a configuration graph model presented in 
[52], which is used to keep the evolution history of software systems. 


4. The development of the specification and implementation of the required mechanisms 
to manage the evolution steps from the moment a system is proposed until its comple- 
tion. 


5. The development of an automated version control and configuration management 
mechanism which is transparent to the users. This mechanism automatically determines 
the version and variation numbers of the software component versions and decides 
which component version belongs to which system configuration. 


6. The development and implementation of a mechanism for detecting change conse- 
quences (determine the components affected by a change) to maintain the global con- 
sistency of the design database and provide serializability of updates for each variation. 


7. The development and implementation of an on-line scheduling algorithm for finding a 
feasible schedule that: meets the deadlines and precedence constraints of all the active 
steps or suggests new deadlines for the lowest priority deadlines until a feasible sched- 
ule that meets the deadlines of the higher priority steps is reached. This algorithm also: 


a. Supports teamwork by concurrently assigning ready steps to available designers. 
b. Supports incremental replanning as additional information becomes available. 


c. Minimizes wasted design effort due to reorganization of the schedule as well as 
workers forced to wait for completion of sub-tasks via the immediate detection 
of new dependencies forced by this reorganization and the suspension and 
rescheduling of the affected assigned-steps. 


G. ORGANIZATION OF CHAPTERS 

The rest of this dissertation is organized as follows: Chapter II provides an overview 
of significant related research. Requirement analysis of the proposed system is given in 
Chapter III. Chapter IV discusses the design and development of the proposed evolution 
control system and our heuristic algorithm for scheduling the evolution steps as well as the 
algorithms for the rest of the system functions. The evaluation and validation of the 
proposed system is presented in Chapter V. Chapter VI includes the concluding remarks, 


evaluates the contribution of the dissertation, and provides directions for future work. 


II. SURVEY OF RELEVANT WORK 


A. OVERVIEW 

The main areas in software engineering relevant to ECS are software development/ 
evolution, version control and configuration management, task planning and scheduling, 
and concurrency control. As defined in Chapter I, the ECS has two main functions. The first 
is to control and manage the evolving software system components which is directly related 
to the area of version control and configuration management, VCCM. The second is to 
control and coordinate the evolution team interactions that include coordinating their 
simultaneous access to the changing software components with the required concurrency 
control to guarantee system integrity, and coordinating and assigning their tasks in such a 
way that maximizes the concurrent assignment and meets management constraints such as 


deadlines and precedences. 


B. REVIEW OF FORMAL EVOLUTION MODELS 


In [52], Luqi presents a graph model for software evolution that introduced the notion 
of evolution step as the activities of initiation analysis and implementation of one request 
for change in the system under evolution. Luqi models the software system evolution 
history as an acyclic bipartite graph G z (C, S, I, O). C nodes represent system components 
and S nodes represent evolution steps. The input edges I represent the relation between a 
Step and the set of system components that have to be examined to produce output 
components which are consistent with the rest of the system. The output edges O represent 
the relation between an evolution step and the components it produces. The states of an 
evolution steps as well as the generation of substeps to propagate the change consequences 
are also defined. In this dissertation we extend this graph model to include other relations 
among system components ("part of" and "used by") and the "part. of" relationship 
between composite step and its substeps. Details of the graph model for software evolution 


and its extensions are presented in Chapter II.A as it is the basis for our system. 
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FIGURE 1. Waterfall model 





The waterfall model as depicted in Figure 1 is a software life cycle model that covers 
the period from conception to retirement of a given software system. It is clear from Figure 
] that the evolution (maintenance) activities follow similar sequence of steps like those in 
the development. Unlike the original development cycle, the evolution activities (adaptive, 
corrective, and perfective maintenance) must take into consideration the existing system's 
requirements, decomposition, constraints, capabilities and performance. The effect of the 
changes must be propagated to preserve system consistency. In the mean time, concurrent 
changes must be coordinated to avoid rollbacks and wasting engineering effort. Evolution 
changes must be planned so that they meet the management constraints such as deadlines, 
precedence, and priorities. This indicates the need for an evolution control system that takes 
into account the special characteristics of the evolution (maintenance) phase of the software 
life cycle process that account for up to 75% of the cost of the software systems [71]. 

The evolutionary prototyping model, where a prototype evolves via a number of 
versions to the final system is shown in Figure 2. Under this evolution model, developers 
start evolving the software system from its fundamental concepts, then keep modifying the 
system in an interactive way with the customer until the system reflects the customer's real 
needs. The importance of an evolution control system in such an interactive, exploratory 
system development model is even more obvious than for the waterfall model. In this 
model all kinds of changes are going on simultaneously, corrective changes to reflect the 


real customer requirements after reviewing the designer's interpretation of portions of the 


developed requirements, adaptive changes to the rest of the customer's real needs, and 
perfective changes to the fundamental concepts already accepted by the customers. The 
interactions between these different activities, the coordination among related ones, 
propagating the effects of each of these changes to the rest of the developed modules, and 
keeping track of which component belongs to which system version are the main goals of 


our evolution control system. 
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FIGURE 2. Rapid Prototyping Model 


C. VERSION CONTROL AND CONFIGURATION MANAGEMENT 
As indicated in [81], version control and configuration management is one of the fields 
in software engineering that has received much discussion and many proposals for proper 


version and configuration models in different domains, but little has been implemented, 


and much remains to be done in developing techniques for ensuring the consistency of 
configurations and space efficient algorithms for version management. 

According to [47] and [26], representations of the versioning process can be classified 
into two main models. The first model is the conventional Version Oriented Model (VOM) 
in which a system is divided into modules each of which is versioned independently from 
the other modules. To configure a system one has to select a version of each module of the 
system. This makes version a primary concept while change is a secondary concept as a 
difference between versions. Both SCCS and RCS [75] [76] [78] conform to this model. 
The second model is the Change Oriented Model (COM). In this model the functional 
change is the primary concept. Versions are identified by a characteristic set of functional 
changes. To configure a system in this model, one has to select a set of mutually compatible 
functional changes. Versions in this model are global, meaning that to examine a module 
one has to specify a single version of the system first, then proceed to the required module. 
The Aide-de-camp software management system [1] belongs to this model. On the other 
hand, in a VOM system, to examine a module one has to select the module first, then 
individually select which version of this module is the target. 

Reference [26] also defines two more models: The composition model and the long 
transaction model. The composition model is a natural outgrowth of the VOM model. A 
configuration in this model consists of a system model and version selection rules. A 
system model lists all the components of a system. Version selection rules define which 
version is to be selected for each component to compose a configuration rather than 
allowing the user to manually pick component versions. Selection rules may be specific, 
i.e., repeated application of the selection rules will result in the same component versions 
(bound configuration). Otherwise the selection rules are generic (partially bound or 
configuration template), i.e., application of the rules at different times may result in a 
different bound configuration, e.g., choosing the latest version. 

The long transaction model supports the evolution of whole systems as a sequence of 
apparently atomic changes, and coordinates the change of software systems by teams of 


developers. Developers work primarily with configurations rather than individual 


components. A change is performed in a transaction. A specific configuration is selected as 
a Starting point for changes which implicitly determines the version of the components. The 
modifications to this configuration are not visible outside the transaction until the 
transaction is committed. Multiple transactions are coordinated via concurrency control 
schemes to guarantee no loss of changes. The result of the committing of a transaction is a 
new system configuration version either on the same development path or branch from an 
existing development path resulting in a new alternative (variation) development path. 

Our work utilizes concepts from both the VOM and long transaction models. Applying 
a top level evolution step to a base version of a software system leads to versioning of both 
the individual components involved in the change and the entire software system producing 
a new configuration version (version of a whole system). In addition our system 
automatically coordinates teamwork in such a way that concurrency control is done at a 
higher level of abstraction, i.e., the serialization of dependent evolution steps is done by 
serializing their assignment to developers in the same order and excluding the need for the 
traditional locking schemes. Including the evolution steps, with all the data they have about 
the change they implement, as nodes in the bipartite evolution history graph facilitates 
evolution history tracing. 


The three main aspects of organizing software objects defined in [31]: 


l. evolution: The software objects should be organized in such a way that makes it possi- 
ble to view their evolution and origin, 


2. membership: grouping software objects in a way that they are easy to find, and 


3. composition: putting the appropriate components together for the composition of a new 
release, 


are similar to the underlying concepts used by our mechanism; the difference is that we use 
composite objects to represent the membership organization and to define the composition 
organization. This same structure represents configurations of systems and their 
subsystems. 

Our concept of composite entities and its generalization to fit system configurations is 
also similar to that used in PACT [70]. Our system uses a computed labeling function and 


a single versioning mechanism for automatically versioning individual objects as well as 
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configuring a system (as a composite object). Simplifying version control and 
configuration management and making it transparent to the user without requiring his/her 
intervention, as it is the case in our system, are two of the main goals of a good version 
control and configuration management system as set forth by Feldman in [27]. 

Our system takes care of planning, scheduling, status accounting and auditing of 
changes via explicit representations of steps as well as software component versions. Each 
step has a unique step number (generated automatically by the system) and is associated 
with all the relevant information such as dependent modules, affected modules, who made 
the changes and when, and the current status of the step in addition to a description of the 
motivation for these changes. This enables the system to answer questions similar to those 
mentioned in [49] such as: what changes were made in step &X, what components were 
affected by this change, what changes were made to the system after a certain date, and so 


on. 


D. TOOL SUPPORT FOR CONFIGURATION MANAGEMENT AND 
COOPERATIVE DESIGN 

According to Kaiser and Perry [37] the main tools that propagate changes among 
modules are listed below. However, none of these support the enforced model of 
cooperation among programmers necessary for large maintenance/evolution projects or 


automatically assign tasks to programmers: 


Make: a UNIX tool that rebuilds the entire software system. It invokes the tools 
specified in the “Makefile” on changed files and their dependent files. Make is used for 


regenerating up-to-date executables after source objects have been changed. 


Build: is an extension to make that permit various users to have different views of 
target software system. A “viewpath” defines a series of directories to be searched by make 


to locate the files listed in the makefile. 


Cedar: the Cedar System Modeler uses an advanced version of the Make tool with 


version control to invoke the tools on a specific versions of files. This System informs the 


"Release Master", a programmer, about any syntactic interface errors. The Release Master 
is responsible for making work arrangements with responsible programmers. 

DSEE: the Apollo Domain Software Engineering Environment also uses a Make-like 
tool with version control. DSEE also has a monitoring facility that permits programmers 


and/or managers to request to be notified when certain modules are changed. 


Masterscope: Interlisp’s Masterscope tool maintains cross-reference information 
between program units automatically. It also approximates change analysis of potential 
interference between changes by answering queries about syntactic dependencies among 


program units. 


SVCE: the Gandalf System Version Control Environment performs incremental 
consistency checking across the modules in its database and notifies the programmer of 
errors as soon as they occur. The consistency checking is limited to syntactic interface 
errors. It supports multiple programmers working in sequence but does not handle 
simultaneous changes. 

Kaiser and Perry [37] [38] [65] also describe Infuse, a system that automates change 
management by enforcing programmer cooperation to maintain consistency among a 
sequence of scheduled source code changes. Infuse automatically partitions these modules 
into a hierarchy of experimental databases. This partitioning may be done according to the 
syntactic and/or semantic dependencies among the modules or according to project 
management decision. Each experimental database provides a forum for the programmers 
assigned to its modules or their managers, and provides also for consistency checking 
among those modules (meaning that the interface between the modules must be correct and 
that the modules can compile and link successfully). Consistency checking among the 
experimental database modules is a pre-condition for merging a database back to its parent 
experimental database. Infuse automatically partitions the database into experimental 
databases but programmers are assigned to the these databases manually. 

In our system tasks and copies of the associated versions of software components are 
assigned automatically to designers (programmers) according to their dependencies. 


Versions are generated automatically as soon as the work is done. Syntactic and semantic 
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consistency checking for source code can be implemented by associating declarations of 
consistency constraints with steps, and triggering the required checking actions as part of 


the commit protocol. 


E. APPROACHES TO SCHEDULING EVOLUTION STEPS 


A scheduling problem in a real-time system is described by three basic concepts: the 
model of the system, the characteristics of the tasks to be scheduled, and the objective of 
the scheduling algorithm [67]. 


First, the system model in our case consists of a set of m designers D = (dy, d», .., d). 


Those designers are of three different expertise levels (low, medium, high). The 
scheduling algorithm determines the order of the execution of tasks by each designer in 
such a way that resource, precedence, and timing constraints are met. In our system 
resources required by a task other than the designer resources are assumed to be available 
as soon as the task is assigned. 

Second, the nature of a task, an evolution step in our case, 1s characterized by its timing 
constraints, precedence constraints, and resource requirements. The timing constraints of a 


task are generally defined in terms of one or more of the following parameters [67]: 


1. The arrival time, T,: The time at which a task arrives at the system. 


2. The earliest start time, Test: The earliest time at which a task can start execution. 


3. The worst case execution time, T,: The execution time of a task is always less than this 
time. 


4. The deadline, Ty: The time by which a task must be completed. 
The following invariant is always true: O < T} < Test < Ta - Te 


While all the tasks and their timing constraints are known beforehand in a static 
system, tasks arrive at arbitrary times in a dynamic system, so that the number of tasks to 
be scheduled as well as their arrival times are unpredictable. 

In many conventional real-time systems a fixed priority is assigned to each task to 
reflect the criticalness of the deadlines, and tasks are executed in an order determined by 
their priorities. These priorities are adjusted (manually), during the testing period, until the 


system designer is convinced that the system works. This approach works only for 
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relatively simple systems, because of the difficulty of determining a good priority 
assignment for a system with a large number of tasks by such a test-and-adjust method. 
Also, once the priorities are fixed on a system, it is very expensive to modify the priority 
assignment [67]. Often, priorities are assigned to tasks based only on their importance, 
without a complete analysis of how these priority assignments will affect the timing 
characteristics of other tasks. Using priorities in this way make it more difficult to satisfy 
timing constraints of all the tasks [83]. 

The relations between the tasks are determined by the precedence constraints among 


these tasks. If a task T; must be completed before another task T; can be started then we say 
T; precedes Tj. The precedence graph of a set of tasks is a directed acyclic graph. This 


precedence graph is known in advance in static systems. In dynamic systems where new 
sets of interrelated tasks arrive arbitrarily, the precedence graph is known only when the 
task set arrives. 

Third, the objective of an algorithm for scheduling a set of tasks is to determine 
whether there exists a schedule for executing the tasks that satisfies the timing, precedence, 
and resource constraints, and to calculate such a schedule if one exists. 

Task scheduling in real-time systems can be static or dynamic. A static approach 
performs the calculation of the schedules for tasks off-line. It requires prior knowledge of 
the characteristics of the tasks. On the other hand, a dynamic approach calculates schedules 
for tasks “on the fly". Despite the fact that static approaches have low run-time cost, they 
are inflexible and cannot respond to a changing environment with unpredictable behavior. 
This inflexibility leads to calculating the schedule for the whole system when a new tasks 
are added, which is expensive in terms of both time and cost. In contrast, dynamic 
approaches involve higher run-time costs, but they are flexible to adapt to environment 
changes. A survey of static and dynamic scheduling approaches can be found in [67]. 

Task scheduling can also be characterized as preemptive and nonpreemptive. A task 
is preemptive if its execution can be interrupted by other tasks and resumed afterwards. A 


task is nonpreemptive if it must run to completion once it starts. 
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1. Scheduling Tasks with Precedence Constraints 


Scheduling tasks with arbitrary precedence constraints and unit computation time 
in multiprocessor systems is NP-hard for both the preemptive and nonpreemptive cases 
[67] [84]. Scheduling nonpreemptive tasks with arbitrary ready times is NP-hard in both 
multiprocessor and uniprocessor systems [67] [83] which excludes the possibility of the 
existence of a polynomial time algorithm for solving the problem. Hong and Leung [34] 
proved that there is no optimal on-line scheduler can exist for task systems that have two 
or more distinct deadlines when scheduled on m identical processors where m > 1. 

Scheduling evolution steps to more than one designer with arbitrary precedence 
constraints and arbitrary deadlines is the same problem as that of multiprocessor scheduling 
mentioned above which is shown by many researchers to be NP-hard. These negative 
results dictate the need for heuristic approaches to solve scheduling problems in such 
systems. In the rest of this section we review some of the relevant task scheduling heuristics 


used in similar problems and highlight their relevance to our work. 


In [72] Stankovic et al. present an O (n?) heuristic scheduling algorithm for 
scheduling a set of independent processes on a set of identical processors. À task (process) 


in this model is characterized by an arrival time Ta, a deadline Tp, a worst case 
computation time Tc, and a set of resource requirements {Tp}. Tasks are independent, non 


periodic and non-preemptive. The authors stated that scheduling a set of tasks to find a full 
feasible schedule is a search problem with a search tree as the search space. The scheduling 
algorithm starts at the root of the tree which is an empty schedule. It tries to extend the 
schedule by moving to the one of the nodes in the next level of the search tree until it 
reaches a full feasible schedule. It 1$ worth noting that, during the expansion of the 
schedule, an intermediate node is a partial schedule, while leaf nodes (terminal node) 
represent full schedules. It is clear that not every terminal node corresponds to a feasible 
schedule. To extend the schedule to a node of the next level of the search tree, the algorithm 
uses a boolean function called “strongly-feasible” to determine if the partial schedule is 
strongly-feasible or not. Á partial schedule is strongly-feasible 1f all schedules reached by 


extending it by each of the remaining tasks are also feasible. This means that if a partial 
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feasible schedule is found not to be strongly-feasible because a task T misses its deadline, 
then the search should stop on this path since none of the future extensions of task T will 
meet its deadline. However, it is possible to backtrack to continue the search in such cases. 
After deciding that a partial schedule is strongly-feasible, a heuristic function (H) 1s used 
to direct the search to a plausible path. 

This algorithm works as follows: Given a particular heuristic function H, the 
algorithm begins with an empty partial schedule. Every step of the algorithm includes (a) 
determining if the current partial schedule is strongly-feasible, and if so (b) extending the 
current partial schedule by one task. This task is selected by applying the H function to all 
the tasks remaining to be scheduled and determining the one with the minimum H value. 

Some of the H functions used in [72] are Minimum deadline first(Min, D), 
Minimum processing time first (Min P), Minimum earliest start time first (Min S), 
Minimum laxity first (Min, L), and the combinations (Min D 4 Min P) and (Min D -* 
Min, S). 

In [67], Ramamritham et al. introduce an O(nk) version of the algorithm 
introduced in [72] by considering only k tasks of the remaining tasks to be scheduled for 
applying the H function and evaluating the strongly-feasible function. 

Both [72] and [67] use a vector data structure for each type of resources to 
maintain the earliest available time for each resource of each type. In our algorithm for 
scheduling evolution steps we extend this algorithm to handle the case where there are 
precedence constraints between pairs of steps, and keep a vector of earliest available times 
of designers for each expertise level. Details of our algorithm are in Chapter IV.C. 

In [82], Xu and Parnas present a pre-run time (static) algorithm to find a feasible 
schedule if one exists on a single processor for a set of processes with arbitrary precedence 
and exclusion relations and arbitrary deadlines. This algorithm assumes that release times, 
deadlines, precedence and exclusion relations are known in advance. 

In [84], Xu and Parnas extend their pre-run time algorithm presented in [82] 
above to find a feasible nonpreemptive schedule whenever one exists on M identical 


processors for the same set of processes defined above. In both cases the algorithms use a 
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branch and bound technique that has a search tree where at its root node they use an earliest 
start time first strategy to compute a schedule called the “valid initial solution” that satisfies 
the release time constraints and all of the initial precedence and exclusion relations. For 
each node in the search tree a lower bound on the lateness of any schedule leading from that 
node is computed. The algorithm branches from the node that has the least lower bound 
among all unexpanded nodes. This operation continues until either a feasible solution is 
found or there exist no unexpanded node that has a lower bound less than the least lateness 
of all valid initial solutions found so far. This algorithm requires all the constraints to be 
known in advance which is not the case in our problem. It also does not provide any 


response to changing any of the constraints of the task set or the arrival of new tasks. 
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III. REQUIREMENTS ANALYSIS 


A. GOALS AND JUSTIFICATIONS 

The main goal of this dissertation is to develop a model and algorithm for an evolution 
control system (ECS) for the software evolution/prototyping process. This system provides 
automated support for changes in plan during the execution of the plan and automatic 
decision support for planning and team coordination based on design dependencies 
captured in a configuration model. This ECS is needed to control and coordinate the 
overwhelming changes dictated by the evolutionary nature of the software prototyping/ 
development process. These prototypes experience iterative and exploratory modifications 
through large numbers of versions and variations to cope with customers' changing and 
growing needs. Coordination is needed to avoid rollbacks, redundancy and inconsistency. 
Control is a necessity for managing both the design data (version/configuration control) and 
the design team via orchestrating task assignment to support management policies. This 
allows the software development team to concentrate on what is needed to fix or improve 
system components rather than worrying about managing this enormous amount of data. 


The following are the main goals for our proposed system: 


1. Manage the evolution steps from the moment a system is proposed until its completion. 


2. Reach a feasible schedule that meets the deadline requirements of all the active steps or 
automatically cancel the lowest priority deadlines until a feasible schedule that meets 
the deadlines of the higher priority steps is reached. 


3. Support teamwork by identifying the steps that can be scheduled concurrently. 
4. Support incremental replanning as additional information becomes available. 


5. Minimize wasted design effort due to reorganization of the schedule as well as workers 
forced to wait for completion of sub-tasks via the immediate detection of new depen- 
dencies forced by this reorganization and the suspension and rescheduling of any of the 
affected assigned-steps. 


6. Ensure system integrity via propagating change consequences (induced steps) to main- 
tain the global consistency of the design database and provide serializability of updates. 


7. Provide automated version control and configuration management. 


8. Efficient use of space and time for the design database and scheduling algorithm. 
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The first goal is needed to help the prototype manager control the large number of 
changes dictated by both the exploratory nature of the prototyping process and customer 
feedback, and keep track of which designer is performing which change. The second goal 
is crucial for planning to accomplish the required changes. The third and fourth goals are 
to cope with the dynamics of the prototyping process where the steps to be scheduled are 
only partially known. Time required, the set of sub-tasks for each step, and the input/output 
constraints between Steps are all uncertain and subject to change as evolution steps are 
carried out. The global consistency of the design database is covered by the fifth goal. The 
sixth goal seeks to automate the version control and configuration management in this 
dynamic environment to save designers’ time and effort. They need not worry about 
managing the complicated design database and may concentrate on their main task of 
performing the required tasks. The last goal is an implementation requirement for saving 
storage space, especially in this exploratory environment where many alternatives are 
explored that require much Storage space, and to find a time-efficient scheduling algonthm 


that does not impact the timing constraints of the scheduled steps. 


B. GRAPH MODEL OF SOFTWARE EVOLUTION 


Since the main purpose of the ECS is managing software evolution in a rapidly 
evolving system, we review a graph model of software evolution that constitutes the 
context for building the ECS [52] [58]. The goal of this model is to provide a framework 
for integrating software evolution activities with configuration control [52]. The model of 
software evolution has two main elements: system components and evolution steps. System 
components are immutable versions of software source objects that cannot be reconstructed 
automatically. Evolution steps are changes to system components that have the following 


properties in the original version of the graph model [52]: 


1. A top-level evolution step represents the activities of initiation, analysis, and imple- 
mentation of one change request. 


2. An evolution step may be either atomic or composite. 


3. An atomic step produces at most one new version of a system component. This prop- 
erty is no longer true in our model in order to include the cases in which an atomic step 
is applied to an originally atomic component that needs to be decomposed according to 
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some design considerations. This decomposition may lead to the production of more 
than one component. This modification is illustrated in section C.2.e later in this chap- 
ter. 


4. The inputs and outputs of a composite step correspond to the inputs and outputs of its 
substeps. 


5. The model allows steps that do not lead to the production of new configurations, e.g. 
design alternatives that were explored but not included in the configuration repository. 


6. Completely automatic transformations are not considered to be steps and are not con- 
sidered in this model. 


7. The graph model can cover multiple systems which share components, alternative vari- 
ations of a single system, and a series of configurations representing the evolution his- 
tory of each alternative variation of a system. 


8. Á scope is associated with each evolution step which identifies the set of systems and 
variations to be affected by the step. The scope is used to determine which induced evo- 
lution steps are implied by a change request. 


The evolution history is modeled as a graph G=[C, S, CE, SE, I, O]. This graph is a 
directed acyclic graph (bipartite with respect to the edges I and O). C and S are the two 
kinds of nodes (C: software component nodes, and S: evolution step nodes respectively). 
Each node has a unique identifier. C and S nodes alternate in each path that has only I and 
O edges. This represents the evolution history view of the graph. The edges represent the 
"part of" (between a sub-component of a composite component and the composite 
component) and "used by" relations (defined between components to represent the 
situation where the semantics or implementation of one component A depends on another 
component B; B used by A) between the software components of a given configuration 
( CEC CX C), the "part of" relation between a substep of a composite step and the 
composite step ( SE c Sx S ), the input relation between the system components which 
must be examined to produce output components that are consistent with the rest of the 
system and the corresponding evolution steps(/ c C x S), and output relation between 
evolution steps and the components they produce (O c S x C). System components are 
immutable versions of software source objects that cannot be reconstructed automatically. 

An “edge_type” attribute is used to distinguish between the two kinds of edges 
representing the relations "used by" and "part of' defined on the set of edges 


CE c C x C. The "used by" relation can be used for automatic identification of inputs of 
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proposed evolution steps and identification of the induced steps triggered by a proposed 
step. À review of the formal definitions of some of the concepts mentioned above, as 
defined in the original graph model [52], is introduced below. Some modifications to some 


of these definitions and the reasons for them are indicated where it takes place. 


a) the set of input components of a step: input (s: S)- (c: Cl [c, s] e I) (1) 
b) the set of output components of a step: output (s: S) (c: Cl [s, c] e O) (2) 
c) Atomic step: atomic (s: S)= ~ EXISTS (s1: S:: s1 part. of s) (3) 


d) one component affects another if both components are identical or if the first is 


used in the derivation of the second: 
EL (El, €2:C:: cl affects c2 «e cl used by* c2) (4) 


where “used_by*” is the reflexive transitive closure of the “used_by” relation defined 


above. 
e) The output of a composite step includes all the outputs of its sub-steps: 
ALL(s1, s2:S, c: C:: s1 part. of s2 £ c e output (sl) > c € output (s2)) (5) 


f) Every input to a sub-step either must be affected by some input to the parent step, 


or must affect some output of the sub-step 
ALL(s1, s2: S, c: C:: s1 part of s2 & cle input (s1) 2 
EXISTS (c2: C:: c2 e input (s2) & c2 affects c1) | 


c2 € output (sl) & c1 used by c2))) (6) 
g) The primary input concept can be formalized by introducing the attributes 
object id, version id and variation id that apply to versions to yield a unique identifier for 
the object and variation associated with each version. Variations represent alternative 
choices, which may correspond to different formulations of the requirements in the context 
of prototyping, or different kinds of system software (operating system, window manager, 


etc.) in the context of product releases. Versions represent the evolution history of a 
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particular variation. An input to a step is primary if and only if it is the previous version of 
the same object and belongs to the same variation as the output of the step. Same variation 


and primary input concepts are defined as follows: 
ALL(cl, c2:C:: cl same-variation c2 <=> object-id(cl) = object-id (c2) & 
variation-id(c1) 2 variation-1d(c2)) (7) 
ALL (s: S, c1: C:: cl primary. input s <=> 
cle input (s) & EXISTS (c2: C:: c2 € output (s) &cl same-variation c2) (8) 
The above definition does not consider the inputs that leads to a new version of an 
object on a different variation (split) as primary inputs. This is the reason we define an input 
to a Step to be a primary input if and only if it is the previous version of the same object as 
the output of the step. This concept can be formalized as follows. 
ALL (s: S, cl: C:: cl primary_input s <=> 
cl e input (s) & EXISTS (c2: C:: c2 € output (s) & object_id (c2) = object_id (cl) 
& version. id (c2) - version 1d (c1) 4 1)) (9) 
h) The scope of a top-level step consists of the components affected by its inputs. 
scope(s:S) = {cl:C | EXISTS (c2:C:: c2 € input (top(s)) & c2 affects c1)) (10) 
1) The set of induced steps are defined as follows. 
induced-steps (s1) 2(s2:S | EXISTS (cl, c2:C:: cl primary_input s1 
& c2 primary_input s2 & cl affects c2 & current(c2) & c2 € scope (s1))) (11) 


where a component is current if there is no later version of the same variation of the 


same object: 
ALL(c1:C:: current (c1) & 4 EXISTS(c2:C:: c1 D* c2 & cl same_variation c2)) 


(12) 
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where D* is the transitive closure of the relation D = (I U O) (13) 


]. Summary of Modifications to the Original Graph Model 


In the previous section we have introduced three basic modifications to the 
original graph model [52]. First, two sets of edges are added to the original graph model to 
represent the "part of" relation (between a sub-component of a composite component and 
the composite component) and “used_by” relation (defined between components to 
represent the situation where the semantics or implementation of one component A 
depends on another component B; B used by A) between the components of a given 
configuration ( CE c C x C), and the "part. of" relation between a substep of a composite 
step and the composite step ( SEC SxS ). 

The second modification 1s relaxing the restriction on an atomic step to produce 
at most one output component. This modification is needed to account for the cases where 
a designer assigned an atomic step (atomic steps are always parts of a top level evolution 
step that is used for control purposes and is not assigned to a designer. See section III. B.7 
for details) needs to decompose the assigned module which may lead to the production of 
more than one output from the step. Since the ECS has control over the components in the 
design database, not over each designer's workspace, the designer who does the 
decomposition should commit these new modules to the design database where the ECS 
can propose a step for each new incomplete subcomponent as parts of the top level 
evolution step. The manager reviews the proposed substeps, add the management 
constraints, approve these substeps, and then the system automatically schedules these 
substeps to the rest of the design team, supporting teamwork. 

The third modification is changing the primary input concept to be compatible 
with the version control and configuration model defined below. An input to a Step is 
primary if and only if it is the previous version of the same object as the output of the step, 
whether the output version is on the same variation as the input of the step or splitting a new 
variation. This modification makes some object versions belong to one or more variations 


to help trace the evolution history of each variation to the initial version of each object. 
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a. Version and Variation Numbering 

As soon as the input base version of a step is bound, the system assigns the 
version and variation number of the output object for the step. The variations are assigned 
successive numbers beginning with 1 for the initial variation. Versions along each variation 
are assigned successive numbers starting with | at the root version of the initial variation. 
This means that the new version number is the base version number plus one, while the 
variation number has two possibilities: the first possibility is to keep the base version's 
variation number at the time the step is assigned. This occurs when the base version is the 
most recent version on its variation line at the time the step is assigned. The other 
possibility is to use the "next" variation number, which is the highest variation number plus 
one. This labeling function is the same for both atomic or composite objects (the entire 


software system is represented as a composite object). 


Let V basel, V base2 be different versions of an object to which an 
evolution step is applied, and V. new be the output version produced by the step. Let S be 
the primary input set of the step, then the version and variation numbers of the output 


version of the step are calculated as follows: 


Case size(S) 1s: 

when 0 => 
-- newly created object starts as version 1 on variation 1 of that object. 
version number (V new)- 1 
variation number (V new)-21 

when 1 => 
-- normal case 
version_number (V_new) = version_number (V_basel) + 1 


if successor (V_basel) = none then 
varlation_number (V_new) = variation_number (V_base) 
else 


variation_number (V_new) = highest_variation (object (V_base)) + 1 
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end if 
when >1 => 

-- merge case 

if version number (V. basel) »- version number (V. base2) 

then version number (V. new) - version, number (V basel)4 I 
v= V_basel 

else version number (V. new) - version number (V base2) * 1 
v = V_base2 

end if 

if successor (v) = none 

then variation_number (V_new) = variation_number (v) 


else variation_number (V_new) = highest_variation (object (v)) + 1 
end if 
where highest_variation is a function that returns the highest variation exist for an 


object. 
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FIGURE 3. Variation and version numbering (case 1) 
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Cases O and 1, of this numbering mechanism are illustrated by an object 
evolution graph in Figure 3. V1.1 corresponds to a newly created object, V1.2, V1.3 and 
V1.4 are examples of the creation of versions on the same variation. V2.2 represent the first 
split, and V3.3 represents the second split creating the new variations 2 and 3 respectively. 

Case >l, is included to make this numbering system compatible with the 
ongoing work for automated version merging capabilities under parallel development [22], 
[23]. This case is also illustrated by an object evolution graph in Figure 4. V1.5 is the result 


of merging V1.4 and V2.4. while V3.5 is the result of merging V1.4 and V2.3. 





FIGURE 4. Variation and version numbering in case of merge (case >1) 


This labeling function allows a version to belong to more than one variation 
which is a necessary modification to [52] to simplify the process of tracing the development 


history of a version and to keep a logical and realistic development history. 


b. Configuration Management 

As mentioned in Section 3 above, the configurations of the different software 
systems/prototypes are represented by a hierarchical structure according to the levels of the 
decomposition of each system. This hierarchical structure is a directed acyclic graph with 
its nodes representing the different components of the system and the edges representing 
the relations among these components which are "part-of" and "used by". A top level 
evolution step producing a new version of one or more of the system components 
eventually leads to producing a new version of the base configuration. This is done by 


propagating the versioning process of the modified components up the hierarchy from the 
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levels of the newly created versions to their parents and all the way up to the root of the tree 
which represents the system under evolution. Itis worth noting that the parent of a modified 
component should have a new version because of the change to its children list since this 


list should point to the new modified child version. This is formalized as follows: 
For 1= N down to 2 
exists (new-version (component (level(1)))) 8 
component (level(1)) part_of component (level (1-1)) & 


— exists (new-version (component (1-1)) —> new-version (component (1-1)) 


where N is the number of levels in the configuration graph in which the root is level number 


1. This rule is limited to the scope of the step which is the base configuration. 


Figure 5 shows an example for building a new configuration as a result of 
committing a top level evolution step. This example assumes the use of formal specification 
in software evolution that limits the impact of evolution steps (1.e., the implementation of 
the composite modules uses its own specification and the specification of its sub-modules, 
but not the implementation of the sub-modules). In this example, the primary input of the 
step S1 is Oe.spec.1.1 (the specification of the module Oe) that affects its implementation 
and the implementation of its parent module Oe.imp.1.1 and Mb.imp.1.1 respectively. À 
substep is created for each changing component, $1.1, $1.2, and $1.3 for the components 


Oe.spec.1.1, Oe.imp.1.1, and Mb.imp.1.1. 


Committing these steps after the modifications are done will trigger the 
following actions: 1) each substep produces the next version on the same variation line of 
its primary input component (assuming no splits), this means the components Oe.spec. 1.2, 
Oe.imp.1.2, and Mb.imp.1.2 are produced as outputs to the corresponding steps. 2) As a 
result of committing the three substeps, the commitment of the top level step S1 is 
m Committing S1 means performing a Depth First Search (DFS) on its input 


configuration Sys 1.2 looking for the primary input components of the step, from the leaf 
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nodes and up, if a parent of any of the primary input component does not have a new 


version, then a new version is created for it and its composition list is updated to point to 
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FIGURE 5. Building a new configuration 
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the new version of its modified child. 3) This versioning of the parents is recursively done 
for all the parents of the newly created versions in the previous step until the root node is 
versioned creating the new configuration Sys.1.3. The reason for performing DFS on the 
primary configuration instead of just building the configuration from the deepest versioned 
component all the way up is that each component may belong to more than one 
configuration while we need only a new version for a specific one of them (the primary 


input configuration). 


2. States of Evolution Steps 


The dynamics of the evolution steps are modeled by associating six different 
states with each step to express the different activities each step has to undergo during its 
lifetime. The state transition diagram in Figure 6 shows the different explicit decisions that 
have to be made by the management to cause the transition from one state to the other. It 
also shows the automated transitions from the scheduled state to the assigned state and vice 
versa (explained in detail in subsections c, and d below). By controlling the states of the 
evolution steps, the evolution manager exercises direct control over both software 
evolution/development and the resulting software configurations. The following are the 
definitions of those states and the corresponding actions that cause the transition from one 
state to the other. These states are similar to those presented in [52] except that a new state 


called "assigned" has been added for the reasons explained below. 


a. Proposed State 

In this state a proposed evolution step is subjected to both cost and benefit 
analysis. This analysis also includes identifying the software objects comprising the input 
set of the step. An evolution step is created when it is proposed, which means that the initial 
Status of a newly created step is “proposed”. The create_step command takes as input a 
primary_input component and a base version of the whole system configuration and returns 
a unique step number, a set of components affected by the change to the primary_input 
component and a set of secondary input components (the components used_by the 
primary input component). A "proposed" step is generally added to the configuration 


graph as an isolated step node that does not have any input, output or part. of edges (except 
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when an old version is used that has existing specific reference). This is because the 
primary and secondary input attributes are mostly generic inputs (object id and 


variation, id only). 
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FIGURE 6. Evolution step's state transition diagram 


Inputs to an evolution step can be specified by references to either a generic 
object or a specific object version. Generic object references are commonly used to denote 
the current version of the object. À generic object reference consists of an identifier for the 
object and an identifier for a variation of that object [52]. Generic object references can be 
used only while the step is in the “proposed”, “approved” or “scheduled” states, and must 
be bound to specific versions before the step can enter the “assigned” state. If the binding 
1s not specified manually, it defaults to the version from the previous version of the entire 


prototype with respect to the serialization order of the top level evolution step. The version 
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bindings of a composite step are inherited by its sub-steps to ensure consistency. Specific 
object references are usually used to define inputs to steps in cases when an older version 
is used, which often coincide with the creation of new variations. 

If a specific reference is to be used, it has to be entered into the system by the 
software manager using the edit step command before issuing the schedule step 
command. This 1s because it is used for the calculation of the serialization order among the 


steps to be scheduled. 


b. Approved State 


In this state the implementation of the step has been approved but not 
scheduled yet and the input set of the step is not bound to particular versions. Approval of 
a proposed step by the management and the Change Control Board advances its status to 
“approved”, and triggers the decomposition process to create an atomic sub-step for each 
primary or affected component of the step. These sub-steps inherit the status of their super- 
step which is "approved" in this case, and are added to the configuration graph with a 
part. of edge between each sub-step and its super-step. 

It is also in this state that the substeps are augmented with attributes that 
include the estimated duration of each sub-step and management scheduling constraints 
such as precedence, deadline, and priority. The "approved" state can also be reached from 
both the “scheduled” and “assigned” states using the "suspend step" command to suspend 


Work on a step due to budget cuts or other management reasons. 


c. Scheduled State 


In this state the implementation has been scheduled and the step is not yet 
assigned to a designer. When a designer is available the step 1s assigned to him/her and its 
status 1s automatically advanced to "assigned". The "scheduled" state 1s reached from the 
"approved" state via the command "schedule step" that indicates that the management 
constraints are complete and enables the scheduling and job assignment mechanisms. The 
scheduling mechanism produces an updated schedule containing the newly scheduled step. 
A schedule specifies the expected starting and completion times for the step. The scheduled 


State can also be reached from the assigned state when a step is suspended by the system 
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because of a new dependency imposed due to adding a new step to the schedule or because 
of modified scheduling constraints due to editing an existing step. This leads to 


rescheduling of the suspended step. 


d. Assigned State 

In this state the step 1s assigned to the scheduled designer, all inputs are bound 
to particular versions, and unique identifiers have been assigned to its output components, 
but these components are not yet part of the evolution history graph. A composite step 
enters the assigned state whenever any of its substeps 1s assigned. 

The assigned state is reached automatically from the scheduled state. When a 
designer 1s available, the schedule is used to determine his/her next assignment. If his/her 
next assignment is ready to be carried out then the step status is automatically advanced to 
"assigned" and the designer is informed of the new assignment. When a step is assigned, 
the version bindings of its inputs are automatically changed from generic to specific. An 
edge is added as an input edge between the primary input component of the step and the 
Step itself in the configuration graph. It is in this state where the designer gets his/her 
assignment, does the required modification/development, and integrates and tests these 


modifications before the transition to the final state "completed". 


e. Completed State 
In this state the outputs of the step have been verified, integrated, and 
approved for release. This is the final state for each successfully completed step. This state 
can only be reached from the assigned state using the commit step" command. In this 
state the output components of the step have been added to the configuration graph. An 
output edge has also been added to the configuration graph between the step and its output 
component(s). À composite step enters the completed state when all of its substeps are 


completed 


f. Abandoned State 


In this state the step has been cancelled before it has been completed. The 


outputs of the step do not appear as components in the evolution history graph. All 
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completed work, if any, of the step and the reasons why the step is abandoned are stored as 
attributes of the step for future reference. This is the final state for all steps that were not 
approved by the management or cancelled in the “approved”, “scheduled” or “assigned” 


states. 


g. Relation to the Original Graph Model 


The Evolution Control System, ECS, uses the above states to represent the 
different actions an evolution step goes through during its lifetime. The difference from 
[52] 1s that an assigned state is added between the scheduled state and the completed state 
to differentiate between the cases in which a step is scheduled (planned) but not yet 
assigned to a designer and those cases where the step is assigned to a designer and the work 
is in progress. It is always desirable to have a complete schedule for planning purposes to 
determine the feasibility of accomplishing the required changes by certain deadline and 
meeting various management constraints. This differentiation is needed for our automated 
management system (ECS) in case of suspending or abandoning a step. If the step status is 
scheduled, then the response is removing it from the schedule, changing its status to 
approved or abandoned respectively, and updating the schedule. If the step status is 
"assigned", then before issuing the previously mentioned actions, a warning to the manager 
that an effort is about to be wasted is issued, and in case of his confirmation, “all completed 


work if any” has to be saved as an attribute of the step for future reference. 


3. Constraints on State Transitions 


The following constraints are imposed on some state transitions of composite 
steps and their sub-steps in order to ensure consistency in the evolution histories containing 
both composite and atomic steps. These constraints are the same as those stated in [52] with 


a slight modification to correspond to the newly added state: 


1. When a step changes from the “approved” state to the “scheduled” state all of its sub- 
steps automatically make this transition. 


2. When a step is rolled-back from the “scheduled” or “assigned” state to the 
“approved” state all of its sub-steps automatically make the same transition. 


3. A composite step automatically changes from the “assigned” state to the “com- 
pleted” state when all of 1ts sub-steps have done so. 
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4. A composite step automatically changes to the “abandoned” state when all of its sub- 
steps have done so. 


5. When a step changes to the "abandoned" state all of its sub-steps automatically make 
the same transition. 


6. When a new sub-step is created, it enters the same state as its parent step and inherits 
all version bindings associated with the parent step. 


4. Specifying Inputs to the Evolution Steps 


Evolution steps have two kinds of inputs: primary inputs and secondary (non- 
primary) inputs. An input to a step is primary if and only if it is the previous version of the 
same object as the output of the step as defined in equation (9). An initial approximation of 
the secondary inputs of an evolution step can be derived from the “used_by” relation, since 
a step can depend on all the components used by its primary input. This is formalized as 


follows: 


ALL (cl c2: C, s: S:: c2 used_by cl& cl € primary_input (s) => 


C2 € initial secondary, input (s)) (14) 
The set of secondary inputs to a step should include all the component versions 
used by the output of the step. The above is a mechanically derived initial approximation 
of the set of secondary inputs. This approximation may need some manual adjustment, 
since design changes may introduce dependencies that did not exist in the previous version, 
and can remove some dependencies that did exist. Such adjustments are made via the 


editing commands provided by the ECS. 


5. Induced Evolution Steps 


When a step modifies a component, it implicitly induces a set of other steps to 
carry out the corresponding changes in all of the other components which depend on the 
one that is modified by the original step (the inducing step). This means that induced steps 
produce versions of their primary inputs which are consistent with the output version of the 
inducing step and in the scope of the current top level evolution step. This concept is 
formalized in equations (8, 9, 10), which provides the basis for automatic construction of 


the set of induced steps for a given inducing step. 
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The purpose of this construction is to alert the software engineers and the 
management of the impact of the proposed changes and to prevent consistency problems 
due to incomplete propagation of the consequences of a change. 

Since the inputs to the top-level evolution step are bound to specific versions at 
the time the step is assigned, the set of induced steps cannot be influenced by any changes 
due to parts of any other top-level steps that may be executed concurrently. The predicate 
"current" is evaluated with respect to the version bindings of the top level step. For all but 
the initial version of the components, the "used by" relationships can be derived from the 


secondary input relationship in the evolution history graph. 


— USCS, primary_input 


p secondary input 


FIGURE 7. Induced evolution steps. 


An example of induced steps in a small system implemented in Ada is shown in 
Figure 7 (taken from [52] p. 926). The initial configuration of the system shown in the 
figure consists of three components. The step sl changes the main program without 
affecting the package specification and does not trigger any induced steps. Similarly the 
step s2 changes the package body without affecting the package specification or triggering 


any induced steps. The step s3 changes the package specification and triggers induced steps 
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s3.1 and s3.2, which must update the main program and the package body to be consistent 


with the new package specification. 


6. Induced State Transitions 


The following constraints are imposed on some state transitions of induced steps 
and their inducing step in order to ensure the consistency of the configuration. These 
constraints are similar to those stated in [52] with minor changes to reflect the addition of 


the "assigned" state to the model. 


a. An inducing step can change from the "assigned" state to the "completed" state only 
when all of its induced steps have done so. 


b. An induced step changes automatically from the “approved” state to the “scheduled” 
state when its inducing step does so. 


c. When an inducing step is rolled-back from the "scheduled" or "assigned" state to the 
"approved" state all of its induced steps automatically make the same transition. 


d. A "roll back" of an induced step can be done only by rolling back all of its inducing 
steps. 


e. Abandoning an inducing step causes all of its induced steps to be abandoned. 


f. An induced step can be abandoned only by abandoning its inducing step. 
7. Applying The General Graph Model to PSDL 

The PSDL (Prototyping System Description Language) prototyping method uses 
a hierarchical decomposition strategy for filling in more details at any level of a prototype 
design. It uses stepwise, topdown refinement to selectively refine and decompose critical 
components. Each higher level component is described in terms of lower level components 
and the relations among them. The decomposition of each level is a realization of the 
components at a lower level of detail [53]. This hierarchical structure of the PSDL 
prototyping method is compatible with the underlying data model defined for the evolution 
history graph and introduced in section III.B above. 

PSDL has been designed to prevent implicit interactions between modules, thus 
supporting module independence. The state of a state-machine operator is purely local in 
PSDL. One cannot send a data stream directly to a composite operator’s component 
because the component names are not visible outside the implementation part of the 


composite operator. 
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This locality makes it easier to modify PSDL prototypes because the number of 
modules affected by a change are limited and can be determined by a straightforward 
mechanical analysis [54]. This is because when a composite module is decomposed into 
sub-modules, the implementation of the composite module uses its own specification and 
the specifications of the sub-modules, but not the implementation of the sub-modules [52]. 
This limits the impact of evolution steps and indicates that each "part. of" relation between 
a module and its sub-modules implies a "used, by" relation between the specification of the 
sub-modules and the implementation of the module. This also implies that the "used by" 
relation can serve as the basis for automatic identification of inputs of a proposed evolution 
step and identification of induced steps triggered by a proposed step. 

The "used, by" relation 1s not only defined between PSDL components but also 
between the requirement hierarchy and the corresponding PSDL components that fullfil 
each requirement. This means each PSDL component can be traced to a requirement in the 
requirement hierarchy and vice versa. This implies that a change in a system requirement 
can automatically generate a proposed evolution step to modify the specification of the 
corresponding component which, if approved by management, can generate the 
corresponding induced steps of this change to the specification/implementation modules 
that use the original specification. 

A change request is normally represented by an evolution step that can be applied 
to one primary input component. However, as a natural result of the explicit relations 
among the modules in PSDL, it becomes obvious that the implementation of the change in 
one component can lead to changes in several system components. This leads to changing 
the atomic step into a composite step and producing a new atomic step for each of the 
affected components. These new atomic steps are called induced steps while the step 
inducing them is called the inducing step. As a result, the inducing step becomes a 
composite step and the induced steps become its substeps. 

In order to eliminate the possibility of unnecessary relations between composite 
steps and their substeps, the composite evolution step may not produce any new component 


by itself, 1.e., itis an empty step. 
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Figure 8 shows what we mean by unnecessary relations between a composite step 
and its substeps. In Figure 8.a step S1 is the composite step with the primary input À, steps 
S2 and S3 are two induced steps with primary inputs B and C respectively that uses module 
A. For step B or C to start step A has to be completed which is impossible because S1 is 
composite step and it will not be completed unless S2 and S3 are completed (circular 
dependency). In Figure 8.b, S1 is designated as an empty step with S2, S3, and Sá as its 
substeps that have the same relations as those between S1, S2 and S3 in Figure 8.a. This 
way S2 can be committed permitting S3 and S4 to start, when 53 and S4 are completed, al 
is committed producing a new configuration of the whole software system incorporating 


this change. 


S1 





(a) (b) 
——» dependency relation 


= part of relation 


FIGURE 8. Relation between composite step and its substeps 


The composite step decomposition occurs when the step is approved by the 
manager. This triggers the automated step analysis process that analyzes the relations 
between the primary input of each step and the rest of the system components, determines 
the initial approximation of the affected modules (the set of modules that use the output of 
the step, which can be approximated by those modules that use the primary input of the 
step) that have to be modified to propagate the required changes, and creates a sub-step for 


each of the affected modules. These induced steps behave no differently than any other step 
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and they may have relations with one another or some other evolution steps. Since the 
composite step itself is an empty step, there are no dependency relations between the 


composite step and its sub-steps. 


C. SCHEDULING MODEL 

The task in our case is to schedule a set of N evolution steps S = (Sy, S»,..., Sy) relative 
to a set of M designers D = (Dj, D»,..., DJ. The designers are of three possible expertise 
levels (Low, Medium, High]. Each step has associated with it a processing time tp (S;), a 
deadline d (S;), a priority p (Sj), and required expertise level e (S;). Steps have precedence 
constraints given in the form of a directed acyclic graph G = (S, E) such that (Sj, Sj) € E 
implies that 5; cannot start until 5; has completed. 


Because of the dynamics of the prototyping/evolution process, the steps to be 
scheduled are only partially known. Time required, the set of sub-tasks for each step, and 
the input/output constraints between steps are all uncertain, and are all subject to change as 
evolution steps are carried out. 

Our goal is to dynamically determine whether a schedule (the time periods) for 
executing a set of evolution steps exists such that the timing, precedence, and resource 


constraints are satisfied, and to calculate this schedule if it exists. 


1. Scheduling Constraints 
During software system evolution/prototyping, constraints that reflect the 

importance and partial ordering of implementing evolution steps arise from real life 
situations. These constraints influence the evolution process and they must be represented 
in the scheduling model in order to reach a realistic schedule. The set of constraints that 
affect scheduling evolution steps in the context of our model are the following: 

]. Precedence constraints. 

2. Timing constraints. 

3. Priority constraints. 


4. Resource constraints. 
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The precedence constraint is used to reflect the inter-dependencies between the inputs 
and the outputs of evolution steps. The intent of this constraint is to impose a sequential 
ordering between given pairs of steps. The precedence constraints among evolution steps 
are represented in the form of a directed acyclic graph G = (S, E) such that (Si, Sj) e E 
implies that S; cannot start until S; has completed. 


The dependency relation between evolution steps implies a precedence constraint 
between these steps. These relations can be formalized using the dependency graph 
definition above and considering C as the set of system components as follows: 

ALL«(c : C, Sij: Sl[s; c] e O&lc, sj] e I:: (s; Sj) e E) (14) 

These dependency relations mean that an atomic evolution step cannot start 
unless the module that needs to be changed is available as well as all the modules that affect 
this module. Most of the precedence relations are calculated automatically. Additional 
ordering constraints can be added manually by the manager, due to considerations such as 
a designer with a special skill is due to be assigned to a different project or that one step 
will be easier or less uncertain if some other step 1s carried out first. 

The precedence attribute of a step, defined as the set of steps that precede this step, 


is used to resolve conflicts when two steps S, and S» are bound to the same generic primary 


input. It is also used to determine which version of a secondary input component to a step 


S; is used when this component is specified by generic reference and its current version is 
a primary input to another step S». If S» precedes S, then the secondary input of S, will be 
bound to the output of S9 and (S5, 54) e E, otherwise itis bound to the current version (the 
primary input of S5). 

The timing constraints of a step are specified in terms of two parameters: the 
deadlines, the time by which the step must be completed according to customer restrictions 


or manager's resource planning, and the estimated duration, a management estimate of the 


time needed to perform the step. 
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The priority, a small positive integer, is assigned to a step to reflect the criticality 
of its deadline. The deadline of a higher priority step can be relaxed only if it cannot be met 
when the deadlines of all lower priority steps are removed. 

The priorities of different steps should be compatible with the precedence 
constraints between these steps, i.e. no lower priority step can precede a higher priority 
step: 

If (53, Sj) e E implies that p (S2) >= p (Sy) (15) 

If (S2, Sj) € E & p (S1) >= p (S3) implies that p (S2) >= p (S3) (16) 

The ECS system should enforce these constraints and warn the manager to make 
the necessary changes (change either the precedence or the priority of the step) to comply 
with these constraints. 

The only resource constraint of a step in our system is specified in terms of either 
of two parameters: the expertise level required to perform the step as one of three levels 
(low, medium, high) defined for the members of the design team, or by specifying a certain 
team member to perform the step. 

In addition to automatically generated precedence constraints, the precedence, 
timing, priority, and resource constraints are assigned manually by the manager and may 
be changed during the evolution process according to the state of the system's evolution 


and external constraints as well as to resolve schedule conflicts. 


2. Dynamics - What Can Change 
Since one of the main goals of this system is to support incremental replanning as 
additional information becomes available, it is important to define what kind of additional 
information can be added/updated, the impact of such changes on both the scheduling and 
assignment processes, and how this may also impact the goal of minimizing wasted design 
efforts due to these changes. The candidates for change during the evolution/prototyping 
process are the following: 
1. The primary inputs. 


2. The secondary inputs. 
2. The affected modules. 
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3. The precedence, priority, and deadline. 
4. Task decomposition 
5. The estimated duration for performing each step. 


6. The design team members. 


In the following subsections each of these change candidates is discussed. 


a. Primary Input Changes 
Normally, an evolution step has one primary input except in case of merging 
different versions of the same component. In this case an adjustment (addition or deletion) 
of a primary input may be needed. This change has no additional effect on the schedule 
because it does not affect any of the other components, since all the step attributes (mainly 
secondary. inputs and affected modules) should have been calculated using the original 


primary input. 


b. Secondary Input Changes 
Due to the ongoing concurrent changes and adding/deleting of components 
to/from the system, dependencies that did not exist in the previous version may be 
introduced, and dependencies that did exist may be removed. These dependencies are 
reflected in each step by a set of secondary inputs (all the components that are used by its 
primary input) which has to be changed to reflect any dependency changes by adding new 
secondary inputs to, or deleting existing secondary inputs from the secondary. input. set of 


the step. The additional impact of this change depends on the status of the step. 


1. If the step status is "proposed/approved"' then the change has no additional effect. 
2. If the step status is "scheduled" then the impact in this case includes the following: 
a. modifying the dependency graph to reflect these changes. 
b. recalculating the schedule according to the modified graph. 


3. If the step status 1s "assigned" then the impact in this case includes all the changes 
mentioned in 2 above as well as the following: 


a. suspending any assigned steps that become dependent on any uncommitted 
steps. 


b. assigning any new steps that become ready. 


c. sending immutable copies of the new secondary inputs to the corresponding 
designer. 
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Note that before the ECS suspends a step it warns the manager that the current 
change leads to the suspension of the step. This gives the manager a choice of either 
confirming the change or binding the modified secondary input to an older version so that 


no suspension occurs. 


c. Affected Modules Changes 


This 1s used to add/delete affected modules to a step after reviewing the 
automated analysis due to missing relations in the configuration graph that the system does 
not consider during this analysis. The impact of this change depends on the status of the 


edited step. 


1. If the step status is "approved" then the impact is adding/abandoning the correspond- 
ing step. 

2. If the step status 1s "scheduled" then the impact in this case includes the effects men- 
tioned in 1 above with the addition of: 


a. modifying the dependency graph to reflect these changes 
b. recalculating the schedule according to the modified graph. 


3. If the step status 1s "assigned", then the impact in this case includes all the effects 
mentioned in 2 above as well as the following: 


a. suspending any assigned steps that become dependent on any newly added 
steps 


b. assigning any steps that become ready. 


d. Precedence, Priority, and Deadline Changes 
Precedence, priority, and deadlines are used by both the scheduling and 
assignment mechanisms to resolve conflicts regarding the dependency between different 
steps and establish a partial or total ordering among the approved steps. The impact of 


changes to any of these parameters depends on the status of the step. 


1. If the step status is "proposed/approved" then the change has no additional effect. 
2. If the step status is "scheduled" then the impact in this case includes the following: 
a. modifying the dependency graph to reflect these changes. 
b. recalculating the schedule according to the modified graph 


3. If the step status is “assigned” then the impact in this case includes all the changes 
mentioned in 2 above as well as the following: 


a. Suspending any assigned steps that become dependent on any uncommitted 
steps 
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b. assigning any steps that become ready. 


Note that when changing the precedence or the priority of a step the 
compatibility between these two constraints should be checked according to rules (16), and 


(17). 


e. Step Decomposition 


The term step decomposition is used to explain the situations in which a 
designer is assigned an atomic step, but while carrying out his step decides to decompose 
the assigned component or change the existing component’s composition. It is for these 
cases that the restriction on atomic steps to produce at most one component has been 
relaxed to permit atomic steps to produce zero or more output components. 

After this modification to the graph model a designer can decompose his 
assigned component and work on its subcomponents within the estimated duration of his 
original component, or he has to change its estimated duration to avoid the warning of 
missing the estimated finish time. The ECS checks for such situations when executing the 
commit_step command issued by the designer. The following cases are considered when 


the designer commits his step: 


1. The ECS looks first for the modified version of the primary_input component of the 
step, and commits it to the shared data space (configuration graph) creating a new 
version of the primary_input component of the step. Let us designate this output 
component as the main component and the primary_input component as the original 
component. 


2. If the step output is not atomic (1.e., more than one modified component in the 
designer’s private_workspace) then for each of these components the ECS does the 
following: 


a. If the component is part_of the main component, the designer is asked if he 
wants to commit this component and whether the work in this component is 
complete. 


b. If the component is to be committed, the work is complete, and the component is 
a part_of the original component then it is added to the configuration graph as 
part_of the main component and as the successor of the version that belongs to 
the original component. 


c. If the component is to be committed, the work is complete, and the component is 
not a part_of the original component then it is added to the configuration graph 
as part_of the main component and as the first version of itself. 
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d. If the component is to be committed and the work is not complete, then in addi- 
tion to adding the component to the configuration graph as part. of the main 
component as mentioned in b and c above, a Step is automatically created with 
this component as its primary input. This is the case with teamwork where a 
designer normally decomposes a component into its subcomponents, creating 
stubs for each created subcomponent then commits these subcomponents, auto- 
matically creating a new step for each of them. 


e. For those components that are part_of the onginal component and not part_of 
the main component, the ECS asks if they should be deleted and delete them 
from the main component composition if confirmed by the designer. 


As an example of step decomposition, Figure 9.a shows the typical case when 
a designer is assigned an atomic step $11 with component B as its primary input (this step 
is part of a top level step S1). He did his modifications to B and did not touch its 
decomposition. The resulting system is A* with a new version B* of B. In Figure 9.b the 
designer changed the decomposition of B. He deleted F, added G, modified D, and kept E 
untouched. When the designer commits his work the system checks for the original 
component B, commits it, creating the new version B*, then commits D creating the new 
version D*, E is kept in the new system configuration A*, F is deleted, and G is added. If 
the work in G is not completed (according to the designer's response) a new step s12 is 
automatically created with component G as its primary. input. This new step ($12) is a 
sibling of step S11. When S12 commits its output will replace component G as part of 
component B*. When S1 is committed the new system configuration A* is automatically 


generated. 
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FIGURE 9. step decomposition 


f. Time Estimate Changes 

The time estimate is a management estimation of the time required for 
execution of each step. The initial schedule estimation is based on these time estimates. 
These estimates may differ from the actual time needed by the designers in charge of 
executing the steps. Editing these estimates may be needed due to actual time required for 
completed work or analysis of values of similar work, or for entry of time estimates for 
automatically generated sub-steps. This editing will provide a better scheduling estimate. 
The impact of these changes also depends on the status of the step. 


l. If the step status is “proposed or approved” then the change has no additional effect. 


2. If the step status is “scheduled or assigned” then the impact in this case includes 
recalculating the schedule. 
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g. Designer-Pool Changes 


Three kinds of changes may take place in the designer. pool: add designer, 


delete designer, and change a designer's expertise level. 


a. Adding a designer triggers the assignment mechanism to find an assignment for the 
new designer if there is one and the rest of the schedule is adjusted accordingly. 


b. Deleting a designer has no impact if he is not assigned to a step and has no planned 
assignment in the schedule, otherwise the manager is prompted for confirmation, 
then if confirmed the assigned step is suspended and reassigned to some other 
designer and the rest of his planned assignment are rescheduled to the rest of the 
design team. 


c. Updating the designer's expertise level has no immediate impact on the current 
assignment, but the planned assignments are adjusted according to his new expertise 
level. 


h. Impact of Changes 


When the impact of a change includes suspending an assigned step, leading 
to a rollback of some work done, or rescheduling some steps in a way that leads to missing 
any of the deadlines, the system should alert the manager to such consequences, giving him 
the option to continue with this change or cancel it and get back to the original conditions 
before the change. In the first case where a step has to be suspended, the system should 
prompt the manager with the candidate steps for suspension, how long they have been 
assigned, and the estimated working time. In the second case where some deadlines have 
to be missed, the system should prompt the manager with the candidate steps for missing 
their deadlines and the earliest completion time for each step compared with the completion 
time before the change. In both cases the manager should have the option to continue with 


the change or cancel it and continue with the original situation. 


3. Computational Feasibility 
Scheduling tasks with arbitrary precedence constraints and unit computation time 
in multiprocessor systems is NP-hard for both the preemptive and nonpreemptive cases 
[67] [84]. Scheduling nonpreemptive tasks with arbitrary ready times is NP-hard in both 
multiprocessor and uniprocessor systems [67] [83] which excludes the possibility of the 


existence of polynomial time algorithm for solving the problem. Hong and Leung [34] 
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proved that there is no optimal on-line scheduler can exist for task systems that have two 
or more distinct deadlines when scheduled on m identical processors where m » 1. 
Scheduling evolution steps to more than one designer with arbitrary precedence 
constraints and arbitrary deadlines is a combination of both the multiprocessor scheduling 
problems mentioned above which is shown by many researchers to be NP-hard. These 
negative results dictate the need for heuristic approaches to solve scheduling problems in 


such systems. 


D. RESOURCE MODEL 

The only resource required in our model is the members of the design team. They are 
represented as a set D- (D, D»,..., Dy), where M is the number of designers in the design 
team. Each team member has associated with him an expertise level e (Dj) to reflect his 
expertise. The expertise levels represented are (low, medium, high). The resource 
constraint of a step determines what level of expertise is (at least) required of a designer 
who can be assigned to the step. Note: The manager may even require a specific designer 


to perform a certain step. 


E. ECS MODEL 


The purpose of the Evolution Control System, ECS, is to provide automated support 
for changes in plan during the execution of the plan, and provide automatic decision 
support for planning and team coordination based on design dependencies captured in the 
configuration model. The ECS also manages the software evolution steps from its creation 
to completion and provides automatic version control and configuration management for 
the products of these steps. Additionally, the system manages the design team through 
automation of the evolution steps' assignments to members of the design team in such a 
way that maximizes the team's effort, supports cooperative teamwork, and meets the 


management constraints such as precedence, priorities, and deadlines. 


1. Context Model 


The Evolution Control System (ECS) interacts with two external entities: the 


software evolution manager and the software designer. These represent classes of human 
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users rather than external software or hardware systems. There is one external interface for 
each class of user: the manager interface and the designer interface. Both of these 
interfaces are views of the proposed ECS. The message flow diagram in [10] and the 
stimulus-response diagrams in Figures 10, 11, 12 and 13 show the context of the system 


and the available commands, their effects and the possible error conditions. 


Designer 


commit substep 




















Designer. Interface 


show. steps 
create step 
edit step 

show. sched 


designer. pool 







controls configuration graph 


schedule 


ommon Interface 





Manager. Interface 








create, prototype, approve. step, schedule, step, 
commit step, abandon, step, 

suspend step, manager. confirmation, 

add designer, drop designer, designer expertise level 


FIGURE 10. ECS message flow diagram 





2. EventList 
The event list for the ECS consists of 25 events. Most of the events are command- 
driven. The following is a list of the events; events triggered by the manager are marked M, 
events triggered by a designer are marked D, and common events for both designers and 


manager are marked C following the event name. 


l. create. prototype (M) 2. create step (C) 
3. approve. step (M) 4. schedule, step (M) 
5. commit, step (M) 6. commit, substep (D) 
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7. abandon, step (M) 8. suspend. step (M) 


9. show. steps (C) 10. show. schedule (C) 
11. add designer (M) 12. drop. designer (M) 
13. designer. expertise level (M) 14. edit step (M) 


15. manager. confirmation (M) 


The edit, step event is a set of events by itself as listed below: 


1l. add, primary. input 2. add, secondary. input 

3. add. affected modules 4. delete primary. input 

5. delete secondary. input 6. delete affected modules 

7. update precedence 8. update priority 

9. update, deadline 10. update, estimated duration 


11. step expertise level 


3. State Model And Related Concepts 
The state of the ECS consists of a configuration graph, a schedule, a set of 
designers, and mappings giving the following attributes for each evolution step: deadline, 
estimated duration, precedence, priority, status and required expertise level. The formal 
definitions of the state model and the constraints on a feasible schedule are defined in 


Appendix A.1. 


a. Configuration graph 

As presented in section B, the evolution history is modeled as a graph G=[C, 
S, CE, SE, I, O]. This graph is a directed acyclic graph (bipartite with respect to the edges 
I and O). C and S are the two kinds of nodes (C: software component nodes, and S: 
evolution step nodes respectively). Each node has a unique identifier. C and S nodes 
alternate in each path that has only I and O edges. This represents the evolution history view 
of the graph. The edges represent the "part of" (between a sub-component of a composite 
component and the composite component) and "used by" relations (defined between 
components to represent the situation where the semantics or implementation of one 


component À depends on another component B; B used by A) between the software 
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components of a given configuration ( CE c C xC), the "part of" relation between a 
substep of a composite step and the composite step ( SEC Sx$S), the input relation 
between the system components which must be examined to produce output components 


that are consistent with the rest of the system and the corresponding evolution 
steps(/ c C X 5), and output relation between evolution steps and the components they 


produce (O C S XC). System components are immutable versions of software source 
objects that cannot be reconstructed automatically. This graph is referred to from now on 
as the configuration graph. In Appendix A.1.a we formalize the structure of this graph as 


well as the two data types; components and steps that constitute its nodes 


b. Designer_Pool 


Designers are the only resource used by the ECS. The type designer is part of 
the ECS state model. Formal specifications of type designer is presented in Appendix 


A.1.b. 


c. Schedule 


The schedule in our system is a data structure representing the mapping 
between the steps and the scheduled designer to perform each step together with the 
estimated start and finish time. Formal specification of this data structure and the relevant 


concepts are presented in Appendix A.1.c. 


4. Manager Interface 


The manager interface to the ECS enables the manager to create new prototypes, 
provide for the evolution of the existing prototypes via a complete set of commands for 
creating, editing, scheduling, suspending/abandoning and/or committing evolution steps, 
and manage the designer pool data via add_designer, drop_designer, and 
designer_expertise_level commands. The formal specifications of the various commands 
with the different responses for each command are defined in Appendix A.2 and Appendix 


A.3. 


x 


5. Designer Interface 


The designer interface to the ECS enables the designer to view the steps in a given 
prototype with a given status and get the sub-steps assigned to him. This interface also 
enables the designer to create a sub-step of an assigned step as well as committing the 
assigned sub-step. The formal specifications of the various commands with the different 


responses for each command are defined in Appendix A.2 and Appendix A.4. 
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FIGURE 11. Stimulus Response diagram for the edit interface 
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FIGURE 12. Stimulus Response diagram for the manager interface 
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FIGURE 13. Stimulus Response diagram for the designer pool view 
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FIGURE 14. Stimulus-Response diagram for the designer interface 
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F. VALIDATION OF ECS SPECIFICATION 


]. A Typical Scenario 

Assume that we have a system Sys consisting of three main modules Ma, Mb and 
Mc as illustrated in Figure 15. Ma consists of two objects Oa, Ob and Mb is atomic while 
Mc consists of Oc, Od, and Oe. The relation "part. of" represents this hierarchical structure 
as follows: Ma part. of Sys, Mb part of Sys, Mc part of Sys, Oa part of Ma, Ob part of 
Ma, Oc part. of Mc, Od part. of Mc, Oe part. of Mc. The "part of" relation also implies a 
"used, by" relationship between the implementation module of the parent component and 
the specification modules of the children components. The used by relation for the 
example is: every specification module of a component is used_by its implementation 
module such as Sys.spec used_by Sys.imp, Ma.spec used_by Ma.imp, etc., and Oc.spec 
used_by Oe.imp. The used_by relation between Oc and Oe can only arise in PSDL if a 
timer is defined in Sys or Mc, this timer 1s started, stopped, or reset in Oc and the value of 
this timer is read by Oe. This kind of dependency should occur rarely in practice. In figure 
3 a thin arrow from À to B means À used by B, while a thick arrow from A to B means A 
part of B & A used, by B. 

Assume our design team has three members: Designer dl with expertise level 
high, d2 with expertise level medium and d3 with expertise level low. One typical 
scenario of a change to this system can be described as follows: 

1. Three evolution steps are created (using the create step command) by the 
designers, based on user feedback from a prototype demonstration, as shown in Table 1. 
The system will assign a unique number to each of the created steps. The status of each 
newly created step is “proposed”. Each created step is added to the configuration graph as 
an isolated node (at this point, the primary inputs of the steps are specified by generic 
references, since we have not yet determined which version of the primary inputs will be 
acted on by each step) with no input or output edges. 

Create step command also triggers the automated step analysis process that 
analyzes the relations between the primary input of each step and the rest of the system 


components, determines the initial approximation of the affected modules (the set of 
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modules that use the output of the step, which can be approximated by those modules that 
use the primary input of the step) that have to be modified to propagate the required 
changes. The analysis process is done as follows: 

a. The system examines the image of the primary input modules under the 
"used, by" relationship to find out what other modules have to be modified to reflect and 
propagate the required changes. By examining the primary input to step sl the system 
should find out that the only modules that use Ma.spec are {Ma.imp, Sys.imp}. The same 
analysis is done for both steps two and three, resulting in the two induced sets {Sys.imp} 
and {} respectively. 


The ECS also calculates the secondary inputs of the step as the modules used_by 


the primary_input of the step. 


Sys.1.1 


Ma.1.1 Mb.1.1 Mc. 1.1 










Ma.spec.1.1 Mb.spec.1.1 Mc.spec.1.1 
Ma.imp.1.1 Mb.imp.1.1 e Mc.imp.1.1 






Oe.1.1 


Oe.spec.1.1 


Oa.1.1 Ob.1.1 Oc.1.1 


Oa.spec.1.1 Ob.spec.1.1 Oc.spec.1.1 


—B part of € used by 
——> used by 


e 


FIGURE 15. Version 1 of the given system. 


2. The manager reviews the proposed steps and its calculated secondary inputs 


and affected modules where he can edit these automatically calculated attributes using the 
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"edit step" command. The manager also, adds management constraints such as priority 
(type natural), precedence (set of preceding steps), estimated time for completing the step 
(hours), and deadline (time). Assume for the sake of this example that the manager added 
the values shown in Table 1 for these attributes. The manager also can modify any of the 


inputs to the step (using the edit step interface). When the manager approves the step 









(using the approve. step command) its status 1s changed from proposed to "approved". 
step. 
expertise 


primary 
input E level precedence priority | deadline 


secondary 
input 

s emer Pl O a 

mo nei EH 


Oc.spec.1 — + 20 proposed 
Oe.spec.1 


TABLE 1. THE PROPOSED STEPS AND THEIR ATTRIBUTES. 

















3. Approving the step makes the system automatically create an atomic sub-step 
of the top level parent step for each affected module. Table 2 shows the different substeps 
created for each step. These sub-steps inherit the version bindings of their respective super- 
step aS well as its precedence, priority, and deadline. These sub_steps are added to the 
configuration graph with part_of edges linking them to their super-steps. 

4. The manager enters the estimated duration for each of the substeps. In this 
scenario, the estimated durations entered are the values shown in Table 2. The manager can 
then schedule the steps (using the schedule_step command), which triggers the scheduling 
and job assignment mechanisms. The schedule (including the planned assignment of a 
designer for each step and the estimated start and finish time for each step) is built 
incrementally with the issuing of the schedule_step command for each step as follows: 

a. When step sl is scheduled (using the schedule, step command), the 
manager gets a schedule which includes the substeps of step s1 as shown in Table 3. This 
schedule meets its deadline. The time T is the time when the schedule is produced. As 
indicated in Table 3, s1.1 is automatically assigned to d2, the status of s1.1 is changed to 
"assigned", the primary input of sl.1 is bound to Ma.spec.1.1, a mutable copy of 


Ma.spec.1.1 is sent to the private workspace of designer d2, and a message (e.g., an e mail) 
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is sent to d2 telling him about his assignment. Notice that $1.2 and $1.3 are not assigned yet 
because they are dependent on s1.1. The assignment of s1.2 and s1.3 will be triggered by 


the commitment of $1.1 that makes both of them ready to be assigned. 
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TABLE 2. THE SUBSTEPS CREATED FOR EACH STEP 
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TABLE 3. THE CURRENT SCHEDULE AFTER SCHEDULING sl 






b. When step s2 is scheduled (using the schedule step command) shortly after 
scheduling sl (we can neglect the time difference between scheduling s1 and s2 relative to 
the time units used for estimating efforts due to the difference in magnitude), an updated 
schedule is calculated accordingly as shown in Table 4. Since the new schedule is feasible, 
it becomes the current schedule and it is sent to the manager. Having s2.1 ready to be 


assigned triggers the assignment mechanism that assigns s2.1 to dl. The status of s2.1 is 
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automatically changed to “assigned”, the primary input of s2.1 is bound to Sys.spec.1.1, a 
mutable copy of Sys.spec.1.1 is sent to the private workspace of designer dl, and a message 


Is sent to d] telling him about his assignment. 


s 
mi [s ID 
CE 


a 
a [pm 
[mi [a 


TABLE 4. THE CURRENT SCHEDULE AFTER SCHEDULING s2 





c. When s3 is scheduled (using the schedule, step command) at t 2 T43, an 
updated schedule is calculated accordingly as shown in Table 5. Since the new schedule is 
feasible, it becomes the current schedule and it is sent to the manager. The updated schedule 
is also feasible. Having s3.1 ready to be assigned triggers the assignment mechanism that 
assigns s3.1 to d3. The status of s3.1 is automatically changed to “assigned”, the primary 
input of s3.1 is bound to Oe.imp.1.1, a mutable copy of Oe.imp.1.1 and immutable copies 


of the secondary inputs to s3.1 (Oe.spec.1.1, Oc.spec.1.1) are sent to the private workspace 


of designer d3, and a message is sent to d3 telling him about his assignment. 


aent __| deer | ir i eh ta 





TABLE 5. THE CURRENT SCHEDULE AFTER SCHEDULING s3 


5. Since the three designers are informed about their assignment and the 
components required for each step exist in the corresponding designer’s private workspace, 
the designers can start their assignments immediately. The rest of the assignments are 
triggered by either the commitment of an assigned step, which makes the immediate 


successor steps ready when there are idle designers waiting for tasks, or the availability of 
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a designer who has completed a previous task when there are other tasks ready to be 
assigned. Assuming a situation where everything goes as scheduled, the following actions 
take place: 

a. When dl issues the commit, step command at t 2T-^6, s2.1 is committed 
producing Sys.spec.1.2 and adding the corresponding node and edge to the configuration 
graph, the private workspace of designer dl is cleared and he becomes idle. Committing 
s2.1 and having d1 idle triggers the assignment mechanism that finds no ready step for him. 

b. When d2 issues the commit_step command at t =T+7, s1.1 is committed 
producing Ma.spec.1.2 and adding the corresponding node and edge to the configuration 
graph, the private workspace of designer d2 is cleared and he becomes idle. Committing 
s1.1 makes s1.2 and s1.3 ready to be assigned, it also triggers the assignment mechanism 
that assigns $1.2 and s1.3 to d2 and d1 respectively, automatically copying both the primary 
and secondary inputs of each step to the corresponding designer’s private workspace, 
changing their status to “assigned”, and sending both of them messages about their new 
assignment. 

c. When d3 finishes his assignment at t =T+8 and issues the commit_step 
command, s3.1 1s committed which means adding the output of s3.1 (Oe.imp.1.2) to the 
configuration graph (shared data space) as a component node, and the corresponding edge 
(s3.1, Oe.imp.1.2) as an output edge. The private work space of d3 is cleared and d3 
becomes idle. Committing s3.1 as the only substep of s3 triggers the automatic commitment 
of s3 producing the new system version Sys.1.2 as illustrated in Figure 16. Having designer 
d3 idle triggers the assignment mechanism that finds no ready step to be assigned to d3. 

d. When dl issues the commit step command at t ZT410, $1.3 is committed 
producing Ma.imp.1.2 and the corresponding node and edge are added to the configuration 
graph, the private workspace of designer d1 is cleared and he becomes idle. Having dl idle 
triggers the assignment mechanism that finds no ready step for any of the idle designers. 

e. When d2 issues the commit_substep command at t =T+13, s1.2 is 
committed producing Sys.imp.1.2 and the corresponding node and edge are added to the 


configuration graph, the private workspace of designer d2 is cleared and he becomes idle. 
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Committing s1.2 makes s2.2 ready to be assigned which triggers the assignment 
mechanism that assigns s2.2 to dl. Committing s1.2 as the last substep of step sl triggers 
the automatic commitment of s1 producing the new system version Sys. 1.3 as illustrated in 
Figure 17. Similar actions take place when committing s2.2 and that lead to the automatic 
commitment of step s2 producing the new system version Sys.1.4 as illustrated in Figure 
19: 

This typical scenario illustrates that the ECS provides the necessary commands 
needed to create, approve, schedule and commit an evolution step, as well as add its 
management constraints, and trigger the assignment mechanism. The managerial functions 
of determining the affected modules of a change and automatically creating evolution steps 
for propagating these changes are automated. The manager retains the option to override 
any automatic calculations through the edit commands (add and delete affected modules) 
and may direct the continuity of actions by his approval via the approve step command. 
The planning process is automated via the scheduling mechanism which is triggered by the 
schedule step command. This scheduling mechanism finds a feasible schedule if one exists 
or gives suggestions to the manager in order to get a feasible one, while giving the manager 
the option to accept ECS suggestions or modify the management constraints to accurately 
reflect all the management concerns. 

The automatic assignment of the ready steps to the idle designers as well as the 
triggering actions of these assignments are also illustrated. The ECS simplifies the 
designer’s task by sending copies of all the components he/she needs to complete his task 
(primary and secondary inputs) in addition to a message telling him about the new 
assignment that resides in his private workspace. As soon as the designer finishes his task 
he can directly issue the commit_step command without having to worry about versioning 
his component or controlling the configuration it belongs to since the version and 
configuration control functions are automated and transparent to the designer. 

This scenario also illustrates the incremental planning nature of the system where 
new steps can be added to the schedule when they are available, and automatically 


scheduled either by finding a feasible schedule if one exists or providing suggestions and 
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accepts the manager's inputs to fine tune the management constraints to reach a feasible 


one. 
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2. Scenario for a Missed Estimated Finish Time 
Now consider that our example does not go so smoothly and designer d2 was 
unable to finish his assignment s1.2 by its estimated finish time t = T+13. The assignment 
mechanism should alert the designer that the estimated finish time has passed and ask for 
formulation of a new eStimate. The designer either responds by committing the step or 
entering a new estimated duration for this step. The schedule is then recalculated. If the 
new estimated, duration is 9 instead of the original value 6, then the schedule is recalculated 


as shown in Table 6. 





TABLE 6. THE CURRENT SCHEDULE AFTER THE NEW 
ESTIMATED DURATION OF s1.2 


In this schedule s2 has missed its deadline. Note that s2.2 depends on s1.2. and 
s1.2's new finish time is t = T+16 and s2.2 needs 5 time units to finish. the manager gets a 
warning that s2 will miss its deadline and the suggestion of a new deadline to be equal to 
the estimated finish time. 

The system in this case monitors the estimated finish times and warns the 
corresponding designer if the finish time of his task is reached without issue of the 
commit step command. The system also warns the manager in this case only if the designer 
chooses to change the estimated duration of his task and this change leads to missing any 


of the deadlines of the steps and provides the manager with appropriate suggestions. 


3. Scenario for an Early Commit 


Now consider designer d2 finishes his assignment s1.2 after 4 time units instead 


of 6 time units. In this case the system will not wait until t = T+ 16 to assign s2.2, but s2.2 
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Is assigned right away giving it a chance for early completion, and the schedule is adjusted 
as shown in Table 7. 

In this case the positive effect of finishing a task early may lead to a ripple of 
positive effects for the whole schedule if the next task for the designer who finished early 
is ready. If the next assignment is not ready or no next assignment exists for the designer, 
the schedule will not be affected. As an example, if d3 finishes s3.1 at t= T + 6, the schedule 


will not be affected because there is no other ready step that requires a low expertise level. 





TABLE 7. THE CURRENT SCHEDULE AFTER THE EARLY COMMIT OF 
s1.2 


4. Scenario for Changing the Precedence of a Step 

Using Table 5 as our final schedule, a possible change that can occur as the 
schedule is carried out is changing the precedence of one or more steps. Consider that the 
manager decided to change the precedence of step s1 from none to be preceded by step s2 
and the precedence of s2 to be preceded by none (using the update precedence command). 
As soon as a precedence changes the system checks two conditions for conflict: 1) that the 
new precedence does not lead to a circular dependency between the scheduled steps and 2) 
that there is compatibility between the priority of this step and the priorities of the steps that 
precede this step and warn the manager accordingly. 

In our case changing the precedence of s2 produces no warning messages when it 
happens. Changing the precedence of s1 leads to different warnings according to when it 
takes place. If the precedence of s1 is changed before that of s2, the manager gets the 
warning "circular. precedence" (at this point s1 precedes s2 and s2 precedes s1) which will 
be eliminated by changing the precedence of s2. When this warning is fixed or the 


precedence of sl is changed second the manager gets the warning “priority_conflict” 
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because s2 now precedes sl and priority of sl is greater than that of s2. This conflict is 
solved by changing the priority of s1 to the value 8 (using the update priority command). 
This last change is also checked for conflicts and none are found. 

The impact of this change on the current schedule depends on when such a 
change takes place. Let us consider two cases where the impact is different as an example 
of the capabilities of the ECS. In the first case we consider the situation where the change 


takes place before t = T+ 7 and the second one is at t = T+8. 


a. Changing Precedence Leading to an Infeasible Schedule 
When the precedence change occurs before commitment of s1.1 at t = T+7, 
the manager gets the warning “infeasible_schedule” (because s1 misses its deadline) and 
the suggestion that the deadline of s1 should be changed to 17 instead of 16. Since this value 
is the lower bound (it is the total execution time of three dependent steps), the manager has 
the option of either to accept the system's suggestion or to undo the change and keep the 
original feasible schedule. The resulting schedule when the manager accepts the system's 


suggestion is shown in Table 8. 
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TABLE 8. SCHEDULE AFTER CHANGING THE PRECEDENCE OF SI, S2 
BEFORE T+7 


b. Changing Precedence Leading to Infeasible Schedule and Step Suspension 


When the precedence change occurs at t = T+8, after committing s1.1 and 
assigning s1.2, step s1.2 becomes dependent on s2.2 and s2.2 is not yet assigned. The ECS 
sends a warning to the manager that s1.2 has to be suspended. At this point the manager has 
the option either to reject the suspension of s1.2 and, as a result, the precedence change is 


undone and the original schedule is restored, or confirm the suspension of s1.2. In the latter 


68 


case, the ECS calculates the updated schedule which includes suspending s1.2 until s2.2 is assigned 
and completed. As a result, $1.2 is automatically suspended by sending a message to its designer 
telling him that the step is suspended, clearing his private workspace, and sending him his new 
assignment if there 1s one. The manager then gets another warning that the updated schedule is 
infeasible (sl misses its deadline). Again the manager has the option to either accept the updated 


infeasible schedule or to tune the other management constraints to get a feasible one. 





TABLE 9. SCHEDULE AFTER CHANGING THE PRECEDENCE, CASE 2 


This scenario illustrates how the ECS keeps the manager informed of the 
consequences of his decisions and gives him the necessary data to take appropriate action. It also 
shows how a step is automatically suspended after manager confirmation without costing him or 


the designer any additional effort. This facilitates streamlining of both of their tasks. 


5. Scenario for Changing the Decomposition of an Assigned Task 

Let us consider again the typical case where everything goes smoothly as scheduled in 
Table 5. This time when s1.1 is assigned to d2 he finds out that the module Ma.1.1 has to be re- 
decomposed. The new decomposition keeps Oa after modifying it, adds a new component Of, and 
deletes Ob. Now d2's private workspace includes the modified components Oa.spec.1.1, Of.spec 
and Of.imp (new components do not have version or variation numbers yet). When d2 commits his 

step, using the commit, step command, The following actions take place: 
a. The modified component Ma.spec.1.1 (the primary input) is configured 
(calculates its version and variation number) as Ma.spec.1.2, and added to the configuration graph 


(shared data space). 
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FIGURE 19. Version 3 of the system after task decomposition 
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b. The modified components Oa.spec.1.1, Of.spec, Of.imp are committed as 
Oa.spec.1.2, Of.spec.1.1, and Of.imp.1.1. Two proposed steps are created with primary inputs 
Oa.spec.1.2, Of.spec.1.1 respectively. 

c. Committing s1.1 requires d2's interaction to change the secondary input set to s1.3 
to include Of.spec.1.1 and delete Ob.spec.1.1. 

d. When the top level step s1 commits later, the part. of relation of the new version 


Ma.1.2 should be modified to include Oa.1.2, Of.1.1, and exclude Ob.1.1 as shown in Figure 16. 


6. Assessment of the Adequacy of the Proposed Command Set 


To assess the adequacy of the proposed command set for the purpose of the ECS, we walk 
through the different functions and operations required by the system and check whether the given 
command set is sufficient to perform each one of them. The best way to do that is to start from 
scratch where we have no prototype in the environment. The create_prototype command enables 
both the manager and the designer to create new prototypes with unique names as a logical first 
step. The evolution of this prototype is done via evolution steps. The creation of such steps is done 
using the create_step command which leads to a creation of a step in the proposed state. The 
management control over ongoing evolution activities 1s enforced via the approve_step command. 
This command controls the steps accepted for the system’s consideration, and gives the manager 
the ability to enter and update the management constraints (precedence, priority, deadline, and 
estimated_duration) as well as the step attributes (primary, secondary, and affected modules) via 
the corresponding commands update precedence, update priority, update_deadline, 
update estimated, duration, add/delete primary input, secondary input, and affected modules. 
The schedule step command is a manager command for incremental planning of approved steps 
when they become available either after fulfillment of its management constraints or having a 
budget to implement it. The continuous control of the manager over the steps in progress 
(scheduled or assigned) is guaranteed via the suspend step, and abandon step commands that 
enable him to suspend a step and get it back to the approved state or abandon the step completely 
as dictated by various management situations. The manager's confirmation 1s also a condition to 
any automated system decisions concerning suspending a step according to a new dependency 


inserted into the system, or slipping a deadline to get a feasible schedule. The manager in both 
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previous cases is given the choice to either confirm the system decision or use the set of edit 
commands at hand to adjust various attributes of the step or the management constraints to reach 
a decision that accurately reflects the management's concerns. The set of commands add, designer, 
drop. designer, and designer. expertise level enables the manager to control the designer pool. 
Designers tasks are streamlined with the ECS. The designer interface has two main 
commands. The create, step and commit step commands enable him to create a step according to 
prototype demonstration feedback or a change request from the customer site, and to commit his 
completed work of his assigned step without having to worry about the versioning of his committed 
components since the version and configuration control are transparent to him. The designer does 
not need any other commands since the system sends to his private workspace all the data required 


to do his task including the primary and secondary inputs of the step. 


7. Questions and Design Decisions 


1. Is the designer responsible for a composite step also responsible for its sub-steps? 


No, otherwise each top level evolution step must be done by a single designer. This is not 
acceptable because team effort must be supported for rapid updates. 


2. Can the ECS assign more than one step to the same designer at the same time? 


No. The main reason for not doing that is to minimize the development time via maximum 
concurrency. This goal could only be reached if we let each designer concentrate on one task and 
get it done in the minimum time to enable the system to assign more tasks. This 1s due to the fact 
that a step can only be assigned if it is atomic or if all the steps it depends on are committed. This 


guarantees the consistency of the software system via change propagation and minimized roll- 
backs. 


3. Is keeping a step history (recording the sequence of versions of an edited step) of value to 
the design/prototyping process? 


Yes, this may help in tracing changes to a step, determining what kind of change to a step 
are most likely to happen, the effect of each kind of change on the system releases and deadlines, 
and accordingly help decide what kinds of step editing should be permitted; e.g. avoid step editing 
that has adverse effects on step completion. The main uses of this information are to improve the 


tools and process guidelines, and to evaluate the abilities of managers and designers. This capabil- 


7 


ity would not be used directly in the operation of the ECS. For this reason, we do not consider it 


further in our requirements and design. 
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IV. DESIGN DEVELOPMENT OF ECS 


A. MODELING THE DESIGN DATABASE 


The data in the design database includes all the components of the ECS state as given 
by the functional specifications in Chapter III.F, and Appendix A.1. These components are: 
the configuration graph, the current schedule, and the designer’s pool. The configuration 
graph, G=[C, S, CE, SE, I, O], consists of two sets of nodes, C and S, the software 
component nodes and evolution step nodes, and four sets of edges, CE, SE, I, and O, the 
different kinds of edges representing the relations between pairs of evolution graph nodes 
component-component, step-step, component-step and step-component respectively. The 
design database (DDB) schema as well as the mapping between the components of the ECS 
state model to this schema is presented in the rest of this section. The implementation 
details of this schema using Ontos database [63] 1s given in Appendix B. The Ada interface 
to the design database schema which contains the definition of an Ada package (both 
specification and body) that enable the main ECS program (in Ada) to access the shared 


data in the design database according to the DDB schema, is given in Appendix C.1. 


1. Design Database Schema 


The main types defined in our database schema, shown in Figure 20, are: 


1. Object: represents the persistence property. 


2. Version: a subtype of type Object to represent immutable versions of software objects. 


LA 


. Component: a subtype of type Version to represent the component decomposition of a 
prototype. 


. Top. component: a subtype of type Component to represent prototypes. 
. Step: a subtype of type Version to represent software evolution steps. 

. Top. step: a subtype of type Step to represent top level evolution steps. 
. Designer: a subtype of type Object to represent designer information. 


. Assignment: a subtype of type Object to represent a schedule record. 


VD © N A Un A 


. Text_Object: a subtype of type Object to represent software component text. 


10.Sequencer: subtype of type Object to generate sequential numbers. 


74 


-aaee = geb 


— oe 


Top level evolution steps and their substeps are represented by instances of the 
types Top_step and Step respectively. The steps are represented in the database as a set of 
Step object with a sequencer object associated with this set to produce a unique step_id for 
each created step. Prototypes and their components are represented by instances of the 
types Top_component and Component respectively, and each defined versioned 
component has a corresponding Sequencer to keep track of the number of variations 
splitted for each component. The designer pool is represented by a set of instances of type 
Designer while the schedule is represented by a list of instances of type Assignment. The 
set of text files (.spec, .imp, .ps, .graph, and .a) belonging to each component are 


represented by instances of type Text, Object. The abstract representations of the different 


types are defined in the following subsections. 


Object 


RES 
— » subtype 
top_component top_step 


FIGURE 20. Type hierarchy 


a. Type Object 
The type object is the most general type. All other types are either directly or 
indirectly subtypes of type object. All instances of type object are persistent by definition. 
This means that entities that are created by an operation persist beyond the lifetime of this 


operation. 
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Type: object supertype: None 
Properties: persistent 
Name: string 
Operations: 
getObject 
putObject 
Both of these operations takes an object name as an input and returns a pointer 


to an object or saves an object in DDB respectively. 


b. Type Version 


All evolving objects are directly or indirectly subtypes of the type version. 
This type as well as its subtypes are immutable versions of software source objects that 
cannot be reconstructed automatically such as source code modules, specification modules, 


requirement modules, and evolution steps. Type version has the following abstraction: 


Type: version Supertype: object 
Properties: 
version. id : natural 
variation id : natural 
previous, version : version 
next version : version 
time created : time 
Operations: 


get previous version 
get next version 
These two operations are used for history tracking as well as for the merge 
process to locate a common base version for a set of merging components. Each of these 
operations takes an object name as an input and returns a pointer to the previous or next 


version of this object. 


76 


c. Type Component 
This type is the specification of type version for the immutable software 
components mentioned in type version above. Each instance of this type represents a frozen 


version of a software component. 


Type: component Supertype: version 
Properties: 
created by : name 
part of : Set {Component} 
subcomponents : set {component} 
used_by : set (component) 
data : text (represents component data) 


-- list of text files (.spec, .imp, .ps, .graph, and .a files) 
Operations: 
create component 
retrieve component 
show. components 
The operation create component takes a component name as an input and 
creates an object with this name in the design database (if this component does not exist in 
the current working directory of the DDB), it also adds the different text files from the 
designer workspace as the data of this object and it also assigns a version and variation 
number to the newly created object. The operation show components is a directory like 
listing of the component and its subcomponents, while the operation retrieve component 


includes copying the component to a specified workspace. 


d. Type Top component 


top component is a component that is not part of any other component. This 
type is used to represent prototype configurations and to enable distinguishing prototypes 
as a separate class to optimize their access time. This separation enables the iteration over 
the top component (s) without having to iterate through all the components to locate only 


the top level ones. 
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Name 

version id 

variation. id 

previous version 

next version 
Componen time created 

created by 

part of 

subcomponents 

used by 

Data (test files) 

FIGURE 21. Component attributes 


Typetop component  Supertype: component 
Properties: 


part of: (] 


e. Type Step. 
A steps is the evolution history node that has all the informations required to 
evolve a software component from one version to the next. Each instance of this type 


represents an evolution step or substep, composite or atomic. The type step is a persistent 


object. 
Type: step Supertype: version 
Properties: 
primary input : set (component) 
secondary_input : set (component) 
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step id 

primary input 
secondary. input 
affected modules 
output 

part. of 
subcomponents 
status 

Step required_expertise_level 

deadline 
estimated_duration 

start_time 

finish_time 

priority 

cc preceded_by 

designer 


date created 


date current status 


FIGURE 22. step attributes 


output : set[ component) 
part_of : set {step} 
status : enumeration 


required expertise level : enumeration 


deadline : time 
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estimated duration : natural (1n hours) 


estimated start time : time 
estimated finsh time : time 
priority : natural 
preceded by : Set {step} 
designer : name 
date, created : date 
date of current status : date 
Operations: 


create, step 
show. steps 
show. step. details 
update step 
The operation create, step takes a prototype name (with variation and version 
numbers) as a base version and a component name as primary input and creates step with 
a unique number. The operation update. step takes step number and arbitrary number of the 
step attributes, resets the single valued attributes to the given new values and add or delete 
a given value to the multivalued attributes. Show steps operation takes as input an 
identifier of a certain category of the steps (such as top, proposed, approved .etc.) in the 
database and return a listing of those steps. Show. step details operation takes a step 


number as an input and returns the different attributes of the step. 


f. Type Top step 
This type is used to distinguish top level steps from their substeps to enable 
the iteration over the top steps without having to iterate through all the steps to locate only 


the top level ones. 


Type: top. step Supertype: step 
Properties: 
part of: () 
affected modules : set[ component) 
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subcomponents : set (step) 
Operations: 


show. substeps (listing of the substeps of the step) 


g. Type Designer 
This type is used to represent a designer’s data in the design database. The 


designer’s pool is represented by a set of instances of this type. 


Designer 
Name Expertise_level Status 


FIGURE 23. Designer attributes 


Type: designer Supertype: object 
Properties: 
name: string 
expertise level: exp level 
status: enumeration (busy, free) 
Operations: 
add designer 
delete designer 
change expertise level 
change status 
The designer's operations are adding new designer with a specified expertise 
level to the DDB, deleting a designer from the DDB, and changing the expertise level or 


the status of an existing design team member. 
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h. Type Assignment 
This type is used to represent the relevant information of assigning a step to 
a designer. While the information included in this type may be redundant with respect to 
both designer data in the designer's pool and corresponding assigned step, this type 
optimize the access time to collect such information. This type also enables saving the 
planned assignment where a full schedule can be represented as a list of instances of this 
type. 


Assignment 


Step id Designer name Estimated start Estimated finish 


FIGURE 24. Assignment attributes 


Type: Assignment Supertype: object 


Properties: 
step. id : natural 
designer_name : String 
estimated_start_time : time 
estimated finsh time : time 
Operations: 
createAssignment 
deleteAssignment 
showAssignment 


i. Type Schedule 
An instance of this type represent the full schedule generated by the scheduler 
to be kept in the database. 
Type: Schedule Supertype: object 


Properties: 
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Assignments : List (Assignment) 
Operations: 
createSchedule 
deleteScheule 
showSchedule 
The schedule uses a list as a container class for the assignments to enforce any 


ordering required over the schedule assignments. 


J. TypeSequencer 
Instances of this type are used as persistent counters where needed. An 
instance of this type is needed for each versioned object to keep track of the number of 
variations for each object. An instance of this type 1s also used to keep track of the number 
of steps created and to be used for steps unique numbering. 
Type: Sequencer Supertype: object 
Properties: 
Value : natural 
Operations: 
getValue 
Increment Value 
This is the only two operations needed on a sequencer and they can be 


implemented as one since any time the value is needed it has to be incremented. 


k. TypeText Object 
Instances of this type are used to represent different files associated with each 
component in the design database. 


Type: Text. Object Supertype: object 


Properties: 
Name :string 
Value : Text 
Operations: 
createTextObject 
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R_retrieveTextObject 
W_retrieveTextObject 
getTextObjecName 
The operation createTextObject is used to create a text object that has the 
name of the input text file and its value is equal to the text of the file. The operations 
R_retrieveTextObject and W_retrieveTextObject are used to get the text object from the 
database in read only mode or read/write mode respectively. The last operation 


getTextObjecName is used to list the names of the text objects included in a component 


2. Concurrency Control 


Concurrency control is one of the problems in the field of database management 
that has received much discussion and many solutions. Most of these solutions are based 
on two basic assumptions. First, all the transactions must be executed such that their results 
are equivalent to some serial execution of those transactions. Second, objects have a single 
value. In some of these solutions old versions are used for a short period of time as a 
transient states, but when the transaction completes the values of the old versions are not 
retained [85]. 

In the context of software evolution/development all old versions of an object are 
made available via the version control mechanism. This contradict the second assumption 
due to the nature of the design database, where a version of an object cannot be modified 
but can be read at any time (read-only). This makes it possible for readers and writers to 
work on the same object and never conflict. The immediate effect of this is an increase in 
concurrency level of the system. 

The traditional question of what happens when two steps try to modify the same 
object occurs in our system in two cases: first, when the designer/management decides to 
explore/start another alternative which automatically splits a new variation of the original 
one with the alternate object version attached to it. Second, when two modifications have 
to be done to the same object, the serialization is automatically done by the Evolution 
Control System, in a higher level of abstraction, which takes care of planning these changes 


to be serialized according to a predefined management policies.These policies should not 
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permit starting one of the steps before committing the other one according to the 
management constraints such as precedence, and deadlines. 

Figure 25 depicts the horizontal view of the graph representation of the relation 
between system versions and the corresponding evolution steps. Step S, is applied to 


€625? 
1 


version V; ¡of a software object (where “k” 1s the step number, “1” represents the variation 


number and “j” represents the version number along one variation) producing version 
Vi ¡+1- Varlations are represented as partial paths in the graph, applying step Sy,, to Vi «1 
produces the version Vi;,5 on the same variation line. Applying step Sx¿2 to Vj¡,1 
produces a new variation i+] with version Vi41 j42. Applying step 5,43 to Vj; produces 


another new variation i+2 with the version Vj42 j41- 


The graph can also include dependencies between the modified versions and 
versions of other objects that are not modified by the step, such as specifications of other 
modules. For simplicity links of this type are not shown in Figure 25. 

Notice that, in case of a split that creates a new variation, it 1s the order in which 
the step is assigned rather than the version number of the base version that decides the 
variation number (1. e., Step k+2 created the new variation 1+1 and Step k+3 created the new 
variation 1+2 despite the fact that the first is applied to version j+1 and the second is applied 
to version j). Thus the variation numbers capture the chronological order in which the 
variations were created. Step numbers are assigned in increasing order when the steps are 
created. Steps can be carried out concurrently and asynchronously, and the order in which 
they actually start or complete their implementation phases can differ from the order in 
which the steps are added to the schedule. 

As for the other shared components of the ECS such as the designer-pool and the 
schedule, the modification to the former one is only performed by the design manager while 
the later is subject to change through the invoked instances of the designer. interface to ECS 
and the manager interface. For these components we rely on the underlying database 
concurrency control scheme (Ontos Database in our implementation) to serialize 


concurrent access to these components as an atomic transactions. 
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FIGURE 25. The relation between system versions and evolution steps 


B. IMPLEMENTATION CONSIDERATIONS 

The prototype implementation of the ECS is intended to be on unix system, where 
multiple instances of ECS are run concurrently by different users (managers and designers). 
These instances of the ECS share the ECS state data stored in the DDB as defined in section 


A above by the DDB schema and its Ontos representation defined in Appendix B. 


1. Implementing Shared Data for Multiple Users 

The shared data by multiple ECS users consists of the evolution graph (evolution 
steps and software component versions) the designer, pool data and the schedule. Despite 
the fact that the schedule information my be redundant with some of the steps attributes, it 
is stored as a Separate component to optimize the access to the schedule informations a 
collected plan of a project implementation and to enable to relate different scheduled tasks 
to each other with respect to some scheduling attributes such as start time or expertise level 
and so on. The design database in the ECS implementation consists of two main parts: the 
first part is the shared data space where all the ECS state data are stored, and the second 
part is the designers work spaces where modification to software components are 


performed. 


a. Shared Data Space 
The shared data space is the repository that keeps all of the verified software 
objects (versions or configurations) and their corresponding evolution steps. The versions 
in the shared data space are frozen and may not be changed under any circumstances. Any 


changes to any of the objects must be done in the context of an evolution step, authorized 
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by the management, and completion of such a step can only add new versions to the shared 
data space. The shared data space contains the public releases of the software objects. 
Mutable copies of these objects can only be obtained as part of an evolution step controlled 
by the Evolution Control System. The relations between the objects in the database are kept 


as attributes of each object and the corresponding evolution step. 


b. Private Workspaces 

Since the data in the shared data space 1s frozen and may not be changed, the 
designers's private workspaces are used for production of new versions of existing objects 
or adding new objects to existing software systems which in turn produce new versions of 
the software system. A designer’s private workspace is protected from updates by other 
designers while a step is in progress. This is visible via the other CAPS tools and has no 
impact on the observable behavior of the ECS system. 

The private workspaces have the following relations with the graph model for 
software evolution: 


1. There is a 1:1 correspondence between private workspaces and evolution steps. This 
means that each designer can only be assigned one Step at a time. 


2. There is a 1:1 correspondence between objects in the private workspace and the set of 
objects representing the inputs to and the outputs from the step of the workspace 
{inputs (s) U outputs (s): where s is the step of the workspace}. 


3. Only the output objects of the step can have mutable copies in the private workspace. 
4. Secondary inputs of the step have immutable copies in the private workspace 


The process of copying objects to and from the designer's workspace is done 
automatically by the Evolution Control System (ECS), and these objects continue to be 
under its control until either all the changes are done and the ECS, triggered by the 
commit step command from the designer, commits them to the shared data space 
producing a new version of each modified object (when a mutable version in the private 
workspace is committed by the ECS, it becomes an immutable version in the shared data 
space), or if the changes are suspended/abandoned then current copies of completed 


mutable versions are saved as an attribute to the step for future reference. 
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2. Choice of Languages and Support Systems 

As a work done at the Naval Postgraduate School, computer science department, 
we do not have much of choice of the language to be used for implementing the ECS 
system, needless to say this language had to be Ada. However, the support object oriented 
database system is Ontos database [63] [64] that has its interface and schema written in 
C++. This adds the burden of having to define an Ada interface package that lets the ECS 
Ada program access the shared data in the DDB according to the defined DDB schema. 
Ontos DB is a multi-user, distributed object database with a C++ class library interface that 
provides areliable storage facility for C++ objects. It has standard database capabilities and 
a special support for objects as well as a set of database and object oriented classes 


enhancing the power of the C++ language [64]. 


3. Software Decomposition and Structure 


The Evolution Control System ECS consists of two main modules, the manager 
interface and the designer interface. The manager interface includes all the commands 
needed to implement the specified behavior of this interface given in chapter ILI.F and 
Appendix À. These commands include show. prototypes, show steps, show. step. details, 
show schedule, create prototype, create step, edit step, edit team, approve Step, 
schedule step, commit step, suspend step and abandon step. The designer interface 
includes the commands needed by the designer to execute the assigned step which are 
create substep, | commit substep and the  adminstrative commands such as 
show prototypes, show steps, show. step details, and show schedule. The Ada 
implementation of these commands as defined in the functional specification is given in 


Appendix C. 


C. THESCHEDULING PROBLEM 


Our problem is to schedule a set of sporadic tasks (software evolution steps). These 
sporadic tasks have random arrival times, and given deadlines, precedence constraints, and 
priority values to indicate the criticalness of their deadlines. Because of the unpredictable 


nature of the arrival time of the sporadic tasks, it is very difficult to design a real-time (on- 
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line) system that guarantees that all their deadlines can be met [34]. Moreover, each of these 
tasks requires certain expertise level, which implies that the system model is a set of M 
software designers of different expertise levels (not identical designers). This problem is 
similar to that of dynamic scheduling tasks with arbitrary arrival times, deadlines, and 
precedence constraints in a multiprocessor system where the processors are not identical. 
Hong and Leung [34] proved that there is no optimal on-line scheduler can exist for 
task systems that have two or more distinct deadlines when scheduled on m identical 
processors, where m » 1. Scheduling tasks with arbitrary precedence constraints and unit 
computation time is NP-hard both the preemptive and the non-preemptive case [67]. Our 
problem is even more complicated than both of the above two cases, when contrasted with 
the case proven in [34] we have more than one designer and each step of the step set has its 
distinct deadline which is the same conditions for the conclusion reached by Hong and 
Leung, in addition, the designers are not of the same expertise level which makes it even 
more complicated. In contrast with results of [67] our problem includes arbitrary 
precedence constraints between pairs of the steps in the step set to be scheduled in addition 
to an arbitrary computation time for each step which makes it even harder than the case of 
having unit computation time. These negative results indicate the need for heuristic 


approaches solve this scheduling problem. 


L TheScheduling Algorithm 


Scheduling a set of tasks to reach a feasible schedule is a search problem, where 
the search space can be structured as a search tree. The root of this search tree is an empty 
schedule, an intermediate node is a partial schedule, and a leaf node (terminal) is a complete 
schedule. Since not all leaves correspond to feasible schedules, it might cause an exhaustive 
search to find one, which is computationally intractable in the worst case. Because of the 
computational complexity of finding a full feasible schedule in many of the real 


applications, heuristic approaches are used. 
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a. System and Task Model 


The task set in the ECS scheduling problem is a variable set of evolution steps 


S = (S1, $5,.., SN), where N varies with time. This set of tasks need to be scheduled to a 
set of M designers D = (Dj, D»,..., Dm). The designers are of L different expertise levels. 


Tasks (steps) are characterized by the following: 


e Estimated processing time tp (S;): a management estimate of the time required to per- 
form a step. 


* Deadline d (S;): The time by which a step must be completed 


e Earliest start time EST (5): the earliest time at which the step can be assigned to a 
designer (calculated when a scheduling decision is made). 


* Priority p (Sj): An integer value to reflect the criticalness of the deadline of a step. 
* Resource requirement r (S;): required expertise level for performing a step. 


e Precedence constraints given in the form of a directed acyclic graph G = (S, E) such 
that (5j, 5)) € E implies that S; cannot start until S; has been completed. 


In order to support teamwork, we assume that each step is assigned to a single 
designer. This designer must have at least the same expertise level as that of the step. We 
also define the earliest start time EST (Si) as the earliest time at which the step can be 
assigned to a designer. This time is calculated when a scheduling decision is made. 

Our goal is to determine whether there exists a schedule for executing the 
tasks, that satisfies the timing, precedence, and resource constraints, and to calculate such 
a schedule if one exists. Since this problem is computationally intractable, we weaken the 
requirements to checking whether a feasible schedule can be found within the available 
time. Otherwise advise the software manager of the lowest priority deadlines that have to 
be canceled (moved to their calculated finish time) in order to get a feasible schedule. This 
algorithm should also give the software manager the choice to change other constraints 
such as priority, precedence or estimated execution time of the tasks to tune the schedule 
each time new evolution steps are to be added to the schedule and a feasible schedule 
cannot be reached. It also must check the validity of these changes (e.g. if a priority of a 
step is changed it has to be less than or equal the priorities of its predecessors and greater 


than or equal to that of its successors). 
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Thus, we need an on-line scheduler that is called when one or more sporadic 
tasks arrive at time t (new tasks in our system may have some of the constraints not defined 
when they arrive to the scheduler) or if the attributes of the currently scheduled tasks 
change, to decide if the newly arrived tasks, or the changed tasks, along with unassigned 
tasks at time t (scheduled but not started yet), could be rescheduled so that all deadlines are 
met. If a feasible schedule is reached the system will continue assigning the tasks to the 
designers according to the schedule constructed by the on-line scheduler. Otherwise the 
system will try to meet the deadlines of the most important (highest priority) tasks and 
Suggest changing the deadlines of the least important ones. These suggestions could be 
accepted by the manager or he can change other parameters which in turn triggers the on- 
line scheduler to recalculate the schedule accordingly. 

Changing the attributes of currently scheduled tasks means editing any of the 
constraints of the not-started-yet tasks, assigned tasks that are prone to exceed their 
estimated execution time (which is a common case in software effort estimation), and the 


addition/deletion of designers. 


b. A Heuristic Search Scheduling Algorithm 

À heuristic scheduling algorithm tries to reach a feasible schedule for a set of 
tasks by starting at the root of the search tree, which is an empty schedule, and tries to 
extend the schedule with one more task by moving to one of the nodes in the next level of 
the search tree until a feasible schedule is reached. The nodes in the next level of the search 
tree consist of those tasks that are ready to be scheduled, i.e. the tasks that have all their 
predecessors completed at this point or has no predecessors. A partial search path is 
extended only if it is strongly feasible. This is because if extending the current schedule by 
a task T causes T to miss its deadline then none of all the possible future extensions can 
meet the deadline of task T, since starting T later cannot make it finish earlier [67]. To this 
point we introduce the following definition: 
e Strongly-feasible partial schedule: A partial schedule is strongly-feasible if all sched- 


ules reached by extending it by any of the remaining (ready to be scheduled) tasks are 
also feasible. 
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If the partial schedule is strongly feasible then a heuristic function is used to 
extend the partial schedule. This heuristic function should reflect various characteristics of 
the scheduling problem to effectively direct the search to a plausible path. If all the 
schedules resulting from extending the current schedule with any of the remaining tasks are 
also feasible, the partial schedule is called strongly feasible. The heuristic function is then 
applied to every task that 1s ready to be scheduled. The task with a predefined property of 
the heuristic function is selected to extend the current partial schedule (e.g. if we use the 
earliest deadline first as our heuristic then we pick the task with earliest deadline of the 
tasks that are ready to be scheduled to extend the current partial schedule), otherwise this 
search path is stopped because it will not lead to a feasible schedule. 

Our heuristic algorithm is based on the heuristic algorithm introduced in [67] 
and discussed above. The main difference is that the tasks in our problem have precedence 
constraints which is not discussed in [67] where the authors deal with a set of independent 
tasks. Another difference is that each task has its own deadline rather than a common 
deadline for each set of tasks as 1s the case in [67]. 

Before describing the details of our algorithm, let us introduce the following 


definitions: 


e Pending. step: a step whose predecessors (in the dependency graph) have all been 
scheduled (not necessarily assigned yet) and their estimated finish time is calculated. 
The step's earliest start time is set to the latest finish time of its predecessors. 


* Ready. step: a pending step whose earliest start time is less than or equal the current 
time t. 


The following data structures and variables are used by the algorithm: 


* Dependency. graph: a directed acyclic graph G = (S, E) such that S = (Sy, S»...., Sy) is 
the set of steps to be scheduled, E is the set of edges such that (S;, S p € Eif and only if 
S; cannot start until Sj has completed. 


* In degree: an integer representing the number of the immediate predecessors of each 
node (step) in the dependency graph. 


* Pending list: a list holding pending steps sorted in a non-decreasing order of their earli- 
est start time. 


* Ready list: a list holding ready steps sorted in a non-decreasing order of the heuristic 
function used (e. g., deadlines, earliest start time etc.). 
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e Earliest Available Time (EAT): a vector of M values to represent the earliest available 
times of the resources (designers). EAT; is the earliest time when Dj becomes available 
when the system has only one instance of each resource type (expertise level), e. g., for 
the case of having only three expertise level low, medium, and high and one designer of 
each level then EAT = (EAT; EAT m EAT). In case of having multiple instances of each 
expertise level the EAT is represented as a matrix so that each row represents the Earli- 
est Available Times of the different instances of each expertise level. 


EAT = ((EAT}; EAT} .. EAT) 
(EAT. ¡ EAT .. EAT ny) 


(EATp¡ EATp2 .. EATpp)) 

where 1, m, h are the three expertise levels low, medium, and high 
respectively, and k, r, and p are the corresponding number of designers in each level. 

The main idea of this algorithm is to extend the current schedule by one of the 
steps in the ready list. The tasks in the ready list can be seen as independent tasks if we can 
define an earliest start time and a deadline for each of them. This is done for the deadlines 
by propagating them from the terminal to the root nodes in the dependency graph. 

The propagated deadline d'(S1) of a step Si is defined by: 

1) d*(Si) = d(Si) if 23 5j : Si precedes Sj 

or 

2) d’(Si) = min {d(Si), d’(S)) - tp (S))} V Sj : Si precedes Sj 

In 2) above, if there exists some step Sj such that Si precedes Sj then Sj cannot 
start until Si has completed. In order to complete S}’s computation before its deadline, the 
latest time by which Sj must be started is d'(Sj) - tp (Sj). Then Si's real deadline should be 
d'(Sj) - tp (Sj) if it is smaller than d (Si). 

As for the earliest start time (EST) of each step, it is adjusted according to the 
following: 

1) EST” (Si) = EST (Si) if —3 Sj : Sj precedes Si 

or 


2) EST’ (Si) = max {EST (Si), EST’(Sj) + tp (Si)) — VSj:Sj precedes Si 


93 


In 2) above, if there exists some step Sj such that Sj precedes Si then Si cannot 
start until Sj has completed. Since the earliest time that Sj can be completed is EST (Sj) + 
tp (Sj) then Si's real EST should be EST'(Sj) + tp (Sj) if itis greater than EST (Si). 

The reason for having a pending list and a ready. list instead of having one 
ready. list is to give the available tasks (in, degree - 0 and EST <= current time) a fair 
chance to compete for available designers especially when using different heuristics other 
than EST first, since the scheduler considers only the steps in the ready. list. 

Our scheduling algorithm has two different initialization procedures. The 
first one is used when the system starts from scratch (i.e., the schedule 1s empty), while the 
second initialization procedure is used when new tasks arrive at the system or some of the 
attributes of an existing step is changed. This scheduling algorithm is similar to the branch 
and bound technique. The strong feasibility check done before extending the schedule by 
another node in the search tree is used instead of the lower bound check, normally used with 
branch and bound algorithm, to bound the search in a given search path. The algorithm 


works as follows: 


Initialization part: 
(1) if initial schedule 2 empty 
(2) then 


initialize EAT values to TO, and the schedule to empty. 

perform a Depth First Search on the dependency graph to: 
- initialize the in_degree for each node (number of immediate predecessors), 
- propagate deadlines, and 
- initialize the ESTs (earliest start time) of the steps that have no EST to TO. 


insert each pending step (its in_degree = 0) into the pending list ordered by its 
EST. 


(3) else 
update the dependency_graph: 


- Remove the assigned steps and their corresponding arcs from the dependency 
graph 
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end if 


- Add the newly arrived steps to the dependency graph (if there is any) check- 
ing for the “acyclic” property of the graph and the compatibility of the newly 

added steps’ priorities with that of their successors and predecessors and warn 
the manager of any violation 


Recalculate the in_degree of the graph nodes. 


Re-initialize the EAT vector (matrix) to the finish time of the step assigned to each 
designer and to t for the free designers. 


Insert each pending step (its in degree = 0) into the pending list ordered by its 
EST. 


Schedule part: 
(4) While full schedule is not reached loop 


(5) 


(6) 
(7) 
(8) 


(9) 


(10) 
(11) 
(12) 
(13) 


(14) 


For all the steps in the pending list: 
if EST (S) «2 min(EAT) of the corresponding designers then 


insert S into the ready. list in order of non-decreasing values of the H (heu- 
ristic) function used and delete S from the pending list. 


end for 
While ready list is not empty loop 


if not STRONGLY_FEASIBLE to extend the schedule by each of the steps 
in the ready_list then 


if the backtrack limit is not reached then increment backtrack 
counter and backtrack (discard the current partial schedule and 
backtrack to the previous partial schedule and extend it by a dif- 
ferent step) 


else exit (NO_FEASIBLE_SCHEDULE) 
end if 

end 1f 

extend the schedule by the step S that has min H 


in case of ties, select the step Si with the highest priority, then the step with 
max tp(S1) 


update the EAT of the assigned designer 
update the EST of the immediate successors of S 
decrement the in_degree of the immediate successors of S 
if the in_degree of any of the immediate successors of S = 0 
then 
insert it into the pending_list in order of its EST, 
end if. 
delete S from the ready. list 
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(15) end while 
(16) end while 


The STRONGLY FEASIBLE is a boolean function that works as follows: 
FEASIBLE = TRUE 
for all the steps S in the ready_list loop 
if min (EAT) of the designers of the same or higher expertise level than 
level(S) + Estimated_duration(S) > deadline(S) 
then FEASIBLE = FALSE 
end if 


end for 


The following are some of the heuristics that may be used with this algorithm: 
e Minimum deadline first (Min_d): H(S) = d (S) 
e Minimum earliest start time first (Min_est): H(S) = EST (S) 
e Minimum laxity first (Min L): H(S) 2 d (S) - (EST (S) 4 tp (S)) 
» Min d * Min est first: H(S) = W * d (S) t (1I-W) * EST (S) 


e [n the four cases ties are broken using the priorities of the steps (the highest priority 
step starts first). Further ties are broken by selecting the step that has the maximum tp. 


The first three heuristics are simple heuristics and the last one is an integrated 
heuristic. The weight W (0 «2 W «z 1), used to combine the two simple heuristics Min d 
and Min, est, can be tuned according to the criticalness of the deadlines of the available 
steps. This means if the deadlines are not critical then W can be set to 0 which leads to 
Min_est heuristic that is the best for team work to assign tasks to designers according to 
their earliest start tme making a full use of the human resources. On the other hand the 
value of W can be chosen to favor the deadline heuristic or some way in between to meet 
the critical deadlines and make the best use of the human resources (designers) available. 

The backtracking limit is left open in the cases where the number of tasks is 
relatively small, and is limited otherwise. In the cases where no feasible schedule is reached 
either due to the absence of a feasible schedule for the given set of tasks or due to reaching 


the backtracking limit of the algorithm without reaching one, an algorithm for adjusting the 
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deadlines is used. This enhancement to the algorithm is presented in section c. This valid 
schedule can be improved on by using the simulated annealing technique described in 


section d. 


c. Algorithm for Adjusting Deadlines 

A valid schedule is a schedule that satisfies the precedence constraints of its 
tasks but allows some of the tasks to miss its deadlines. Different heuristics can be used to 
guide the search process to a plausible path that minimizes the number of tasks that must 
miss its deadlines and in the mean time supports team work by scheduling every available 
task as soon as the earliest available time of the task is reached. This in turn minimizes the 
time a designer has to wait for a task to be assigned to him/her. 

This algorithm uses almost the same steps as in the previous search algorithm 
uses with two main differences. The first difference is that: there is one ready. lists for each 
of the L expertise levels. The main reason for having the different levels of ready lists 1s to 
guarantee that no lower task is assigned to a higher level designer while there is a task of 
the designer's level ready to be assigned (recall the requirement that the expertise level of 
the designer must be at least the same as that of the assigned task). The second difference 
is that when failing the strong feasibility check for extending the schedule by another task, 
a new deadline is suggested for the task that does not meet its deadline (equal to its 
calculated finish time). Upon accepting this value by the manager the schedule is extended 
to the next level and so on until a valid schedule is reached. 


The Proposed deadline-adjusting scheduling algorithm works as follows: 


initialization part: 


(1) if initial schedule — empty 
(2) then 
initialize EAT values to TO, and the schedule to empty. 
perform a Depth First Search on the dependency graph to: 
- initialize the in_degree for each node (number of immediate predecessors), 
- propagate deadlines, and 
- initialize the ESTs (earliest start time) of the steps that have no EST to TO. 
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(3) else 


end if 


schedule part: 


Insert each pending step (its in degree = 0) into the pending list according to its 


EST. 


update the dependency graph: 


- Remove the assigned steps and their corresponding arcs from the dependency 


graph. 


- Add the newly arrived steps to the dependency graph (if there is any) check- 
ing for the “acyclic” property of the graph and the compatibility of the newly 

added steps” priorities with that of their successors and predecessors and warn 
the manager of any violation. 


Recalculate the in_degree of the graph nodes. 


Re-initialize the EAT vector (matrix) to the finish time of the step assigned to 
each designer and to t for those free designers. 


Insert each pending Step (its in_degree = Q) into the pending list ordered by its 


EST. 


(4) While full_schedule is not reached loop 
(5) For all the steps in the pending list: 


(6) end 


for 


if EST (S) <= min(EAT) of the corresponding designers then 


insert the step into the corresponding ready_list according to the H 
(heuristic) function used and delete it from the pending list. 


(7) For all ready_lists from higher_level to lower_level loop 


(8) 
(9) 


(10) 
(11) 
(12) 
(13) 
(14) 


While ready_list is not empty loop 


if not FEASIBLE to extend the schedule by any of the steps in the 
ready_list 


then suggest a new deadline for the infeasible step assignment 
if the suggestion is not accepted then exit, end if. 
end if 
extend the schedule by the step S that has min H 
update the EAT of the assigned designer 
update the EST of the immediate successors of S 
decrement the in_degree of the immediate successors of S 
if the in_degree of any of the immediate successors of S = 0 
then 
insert it into the pending_list, 


98 





end if. 
(15) delete S from the ready. list 


TO = min (EAT) of the designers of the same or higher expertise 
level than level(ready. list) 


(16) for all the steps S in the pending list such that expertise level (S) 2 
level (ready. list): 
if EST (S) <= TO 
then 


insert S into the ready_list according to the H function used 
and delete it from the pending list. 


end if 
end for 
end while 
if not FEASIBLE then exit end if 


(18) end for 
if not FEASIBLE then exit end if 


(19) end while 


This algorithm has the property that a designer will never be left idle when there 
is a ready step that the designer is qualified to do. This is because inserting steps into ready 
list and their assignment to designers are triggered by the availability of designers as is the 
Case in statement 5, 10, and 15. 

As an example to illustrate how this algonthm works, assume we have the same 
example discussed in the typical scenario in chapter 3 as represented in Table 10. and the 
corresponding dependency graph in Figure 26. The resources in this example are three 


designers d1, d2, d3 with expertise levels H, M, L respectively. 


TABLE 10. THE STEPS TO BE SCHEDULED AND THEIR ATTRIBUTES 





Now we follow the algorithm step by step to see how it works: 


(1) The EAT vector is initialized to zeros EAT = {0, 0, 0) for dl, d2, d3 respectively. 





FIGURE 26. The dependency graph 
(2) Table 11 shows the new deadlines after propagating them from the terminal nodes 
all the way up to the corresponding root nodes and initializing the in. degree and the 


EST. 


TABLE 11. THE STEPS ATTRIBUTES AFTER PROPAGATING THE DEADLINES. 





Fincoegree GIO A C NN 


Using H - d (S) 


(3) The steps with in degree- 0 and EST = 0 are inserted in the ready. list. Now the 
ready. list 2 (S1, S4, S6] according to their deadline values. 


(4) since the initial partial schedule is empty, it is feasible to schedule any of the three 
steps in the ready. list without missing any of their deadlines. 


(5) The partial schedule is extended by S1 (inserting the steps in a non-decreasing order 
of their deadlines into the ready. list makes no need to apply the H function, since the 
step on top of the queue has the min deadline), and S1 is removed from the ready list. 
The EAT is updated: EAT - (0, 7,0], the in. degree of steps S2, S3 is decremented to 0. 
The EST(S2) and EST ($3) are set to 7. 


(6) Since a feasible full schedule is not reached yet we loop back to step 3. Table 12 
reflects the changes after first iteration. 
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(7.3) S2, S3 have their in degree - 0, but their EST » min (EAT). Now the ready. list - 
(S4, 56) 

(7.4) The partial schedule is strongly feasible if extended by any of the steps in the 
ready list 


(7.5) The partial schedule is extended by 54, it is removed from the ready. list, and EAT 
is updated EAT = (6, 7, 0), the in degree of S5 is decremented, and the EST (S5) is set 
to 6. 


TABLE 12. THE EFFECT OF THE FIRST ITERATION 
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(7.6) Since a full feasible schedule is not reached yet we loop back to step 3. Table 13 
reflects the changes after second iteration. 


TABLE 13. THE EFFECT OF THE SECOND ITERATION 





(8.3) no new ready steps yet. The ready list 2 (56) 


(8.4) The partial schedule is strongly feasible if extended by any of the steps in the 
ready. list 


(8.5) The partial schedule is extended by 56, it is removed from the ready. list, and EAT 
is updated EAT - (6, 7, 4). 


(8.6) Since a full feasible schedule is not reached yet we loop back to step 3. Table 14 
reflects the changes after third iteration. 
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(9.3) Now the ready. list is empty, and no full schedule is reached, the time is advanced 
to max(min (EAT), min (EST (pending list)))2 7, both S2 and S3 are ready and 
inserted into the ready list according to their deadline values. Now the ready. list 2 (S2, 
S3) 

(9.4) The partial schedule is strongly feasible 1f extended by any of the steps in the 
ready_list 

(9.5) The partial schedule is extended by S2, it is removed from the ready_list, and EAT 
is updated EAT = {6, 13, 4}. The in_degree of S5 is decremented to 0, and its EST is 
updated to 13. 


TABLE 14. THE EFFECT OF THE THIRD ITERATION 


predecessor (S) 


Successors (S) 
in_degree (S) E 


r (S) 


in degree (S) S 





(9.6) Since a full feasible schedule is not reached yet we loop back to step 3. Table 16 
reflects the changes after fourth iteration. 


(10.3) no new steps to be inserted into the ready. list. Now the ready. list 2 (53) 


(10.4) The partial schedule is strongly feasible if extended by any of the steps in the 
ready_list 
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TABLE 16. THE EFFECT OF THE FIFTH ITERATION 


est(S) 
tp(S) 
d (S) 


| predecessor (S) 


Successors (S) 
r (S) 
in degree (S) 





(10.5) The partial schedule is extended by 53, it is removed from the ready. list, and 
EAT is updated EAT - (10, 13, 4]. 


(10.6) Since a full feasible schedule is not reached yet we loop back to step 3. Table 16 
reflects the changes after fifth iteration. 


(11.3) Again the ready. list is empty, the time 1s advanced to 10 then to 13 where S5 
becomes ready and inserted into the ready. list. Now the ready. list 2 (55) 


(11.4) The partial schedule is strongly feasible 1f extended by any of the steps in the 
ready list 

(11.5) The partial schedule is extended by S5, it is removed from the ready. list, and 
EAT is updated EAT = (18, 13, 4). 


(11.6) Since a full feasible schedule is reached the algorithm stops. The resulting sched- 
ule is shown in Table 17. 


TABLE 17. THE RESULTING SCHEDULE 


[step | designer | start time | fish time 
s [e [m Is: 
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V. EVALUATION AND VALIDATION 


A. COMPLEXITY ANALYSIS 

Both of the two algorithms introduced in Chapter IV.C.1.b and IV.C.1.c have a total 
of n steps, where n is the number of the tasks to be scheduled. The complexity of each step 
is determined by the complexity of the computation done to determine strong feasibility 
and the complexity of H function evaluation. The strong feasibility calculation is linearly 
proportional to the number of the steps in the ready list. This number depends on the 
connectivity of the dependency graph which is n in the worst case. The H function 
computation is done simply by inserting the ready steps into the ready list(s) in order of 
their H function which has the order of (log n) in the worst case if we use a heap data 
structure for the ready lists. 

The overall worst case complexity of the algorithm is: 

n4 (n- 1) (n-2)* 427 O (n5. 

The backtracking in of the algorithm in Chapter IV.C.1.b can be limited to a constant 
number which does not affect the complexity analysis. In our expermintal results we found 
out that the number of backtracking is at most proportional to n with a small constant (0.75). 
It is also worth noting that the number of steps in the ready. list is linearly proportional to 
the remaining ready unassigned steps which is always less than or equal to the number of 


the remaining unassigned steps. 


B. Simulation Study 

The main goal of a scheduling algorithm is to find a feasible schedule for a set of tasks, 
if one exists. Clearly, a heuristic scheduling algorithm is not guaranteed to reach such a 
schedule. However, one heuristic algorithm is favored over another, if we have a number 
of task sets that known to have feasible schedules, the first is able to find feasible schedules 
for more task sets than the second. To take this approach, we have to come up with a 
number of task sets, each of which is known to have a feasible schedule. Unfortunately, 
only an exhaustive algorithm can find out whether an arbitrary task set can be feasibly 


scheduled. 
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Given m different designers, the complexity of an exhaustive search to find a feasible 


schedule for n tasks in the worst case can be O(m" * n!). This is why we take the approach 
taken by Ramamritham et. al. [ Ref. 67] which is using a task generator that can generate 
schedulable task sets where the number of tasks in each set can be arbitrarily large without 
adding much complexity on the task generator. Additionally, the tasks are generated to 
guarantee the total utilization of the available designers. These task sets are then input to 
the scheduling algorithm, that has no knowledge that these sets are schedulable. The 
parameters used to generate task sets are: 

1. The minimum duration of a task, Min_D. 

2. The maximum duration of a task, Max_D. 

3. The schedule length, L. 

The task set generator starts with an empty EAT matrix, it then generates a task by 
selecting one of the n designers that have the earliest available time and then randomly 
chooses the task duration between the minimum duration and the maximum duration. The 
task generator then increments the EAT of the selected designer by the value of the task 
duration. The task generator generates tasks until the remaining unused time units of each 
designer, up to the schedule length L, is less than the minimum duration of a task, that 
means no more tasks can be generated for this designer within the given schedule length. 

The deadline for each task is chosen randomly between the task 's shortest completion 
time T.c and (1+F) * T,,, where F is a parameter indicating the tightness of the deadlines, 
and is related to the loading factor of each set of designers of the same expertise level. If F 
is 0, the scheduler must be able to find the same schedule as that found by the task generator 
in order to reach a feasible schedule. As the value of F is increased it is obvious that the 


scheduler has a better chance to find a feasible schedule for the task set. 


1. Simulation Method 
In our simulation study, N task sets are generated, where each set is known to be 
schedulable according to the task set generation procedure discussed above. Performance 


of different heuristics are compared according to how many of the N feasible task sets are 
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found schedulable when the heuristics are used [ Ref. 67]. We use the same metric used in 


[ Ref. 67] which is defined as: 


S 
SR = —, where s is the number of schedulable task sets found by the heuristic 


N 
algorithm, and N is the total number of task sets. 

The loading factor for the designers is different according to their expertise level. 
we assume that the designers are of three different expertise levels High, medium and low, 
and a step can be assigned to a designer that has at least the same expertise level as that 
required by the step. This assumption make the loading factor varies for the designers in 
different levels as defined below. 

For high level designers we define the loading factor as follows: 


) Tph 
LFhk = =—* 57 
(Max (di) - To) xMh 


where LFh is the loading factor for high level designers, Tph is the estimated duration for 
a high level task, To is the initial start time for scheduling the tasks, Mh is the number of 
available high level designers and di is the deadline of task 1. 


For a medium level designer we define the loading factor as follows: 


Z Tom 
LEm = EEE EEE 
(Max (di) — To) x (Nm - Nh - Nhx LFh) 


m $ Tpm 
7" — (Max(did) -To) xMm+ (1=LEh) (Max (dd) -To) xMh 


where LFm is the loading factor for medium level designers, Tpm is the estimated duration 


for a medium level task and Mm is the number of available medium level designers. 


106 


For a low level designer we define the loading factor as follows: 


Y» 


LF 1————————————————— —Ó——————————————————- 
(Max (di) — To) X NI t- (1— LFm) (Max(di) — To) X (Nm-- Nh — Nh X LFh) 


Y» 


AAA AA A 
(Max (di) — To) (N —Nh(LFh+LFm-—LFhXLFm) — LEmX Nm) 
where LFI is the loading factor for low level designers, Tpl is the estimated duration for a 


low level task and Ml is the number of available low level designers. 


2. Simulation Results 
The system, in our experiment, consists of three designers, one of each expertise 
level high, medium and low. Tasks durations are randomly chosen between Min, D (2) and 
Max_D (20). The number of task sets generated is 50, and each task set has between 28 and 
31 tasks. We present the results as shown in Table 18, and in plot form in Figure 27 where 
the success ratio SR is plotted on the Y-axis and F on the X-axis (F is related to laxity). 


Simulation parameter is F to measure the sensitivity of each heuristic algorithm to the 


change in laxities. 


TABLE 18. Relation between Success Ratio (SR) and Laxity (L) 





As can be seen from Figure 27 the greedy heuristics Min_D, Min_S, Min_D+ 
Min_S and Min_L perform poorly due to the dependency relations between the tasks. We 
found that the heuristic search algorithm have a success ratio of 100% even when the 


deadlines are very tight (F=Q). It is worth noting that this excellent performance by the 
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heuristic search algorithm is obtained with unlimited backtracking. This leads us to study 
the effect of limiting the backtracking. 

Instead of trying different backtracking limits and studying their effects on the 
performance of the algorithm, we do it the other way around by counting how many times 
the algorithm backtracks to get a feasible schedule given the different task sets. The results 
is shown in Table 19 where the number of backtracking is represented as a percentage of 
the total number of tasks in a task set. The results plotted in Figure 28 shows that the 
backtracking limit in the worst case (tightest deadlines: F=0) is approximatly 0.6 N, where 


N is the number of tasks in a task set, and this limit decreases significantly as the deadlines 


are relaxed. 


FIGURE 27. Relation between Success Ratio (SR) and Laxity (L) 
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TABLE 19. NUMBER OF BACKTRACKING (AS PERCENTAGE OF N) ANDLAXITY (L) 
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FIGURE 28. Limiting Backtracking 


C. DEVELOPMENT OF TEST CASES 

To evaluate the ECS system and its proposed functionality, our test cases are designed 
to show that the ECS realizes the two main claims; 1) The ECS provides automated support 
for changes in the plan during the execution of the plan. 2) It provides automatic decision 
support for planning and team coordination. We show that the ECS system realizes these 
two main issues by tailoring the test cases to answer a set of questions showing the fine 


details pertaining to both of these issues. The set of questions are as follows: 


1. Does the ECS support incremental planning of new evolution steps as they become 
available? 
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2. Does the ECS respond on the fly to changes in the plan (the attributes of the existing 
steps and the changes in the design team members) reflecting their effects on the cur- 
rent plan (schedule)? 


3. Does the ECS automatically determine change consequences? (calculates the 
affected modules (components) by each change (step) needed for propagating the 
change consequences as well as calculating the set of secondary inputs needed to 
perform the required change) 


4. Does the ECS automatically guarantee the consistency of the project database? (cre- 
ate a substep for each affected module by the proposed top step and include it in the 
plan for implementing the change and restrict the commitment of the top step by the 
completion of all its substeps) 


5. Does the ECS support automatic VCCM? (determines and saves the version and 
variation numbers of the outputs of committed steps and generates a new system 
configuration at the commitment of each top level evolution step?) 


6. Does the ECS support parallel multisystem evolution? 


In this section we run similar scenarios to those introduced in Chapter III.F as our test 
cases for the evaluation and validation of the ECS system performance. During the test 


cases we indicate the answers to the different questions presented above. 


The systems we are evolving are called “c3i_system” and “fishies” where simplified 
block diagrams of their decomposition are shown in Figure 29 and Figure 30 to make it easy 
to follow the different cases. The C31. system is a Command, Control and Communication 
information system developed at the CAPS lab. The fishies system is fish farm control 
system also developed in the CAPS lab. Notice that thick arrows indicate both “part_of” 
and “used_by” relationships and the thin arrows indicate only the “used_by” relationship 
among the system components. 

The set of initial designers are: “badr” with expertise_level “low”, “brockett” with 
expertise_level “medium” and “dampier” with expertise_level “high”. 

In the following sub-sections we follow a typical scenario for evolving the two 
systems mentioned above indicating in each subsection the ECS system features 


demonstrated. 
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FIGURE 29. simplified version of c3i system 
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1. Determining Change Consequences 

In this section we show how the creation of a step with a given primary input 
automatically generates the modules affected by this step as well as the secondary inputs 
needed to perform this step. 

l. Starting with the initial configuration of “‘c3i_system 1:1” (variation number 1 
and version number 1), we create three steps: first step with primary input 
"c3i system.sensor interface.spec.psdl", second step with primary input 
“c31_system.spec.psdl”, third step with the primary input 
"cJi system.user interface.manage. user interface.imp.psdl". As soon as the manager 
clicks the apply button for creating a step the ECS assigns a unique number to it and 
generates the affected modules of this step. 

As a result of creating first step, the ECS assigns ita unique number, 1 in this case, 
and generates the modules affected by this step which are “c31_system.imp.psdl and 
c3i_system.sensor_interface.imp.psdl”. The result of creating the second step is assigning 
it the unique number 2 as its step_id and generating the affected module by the step which 
is “c31_system.imp.psdl”. Finally the result of creating the third step is assigning it the 
unique number 3 as its step. id and generating its affected modules which are “none” in this 
case because implementation modules do not affect any other modules and the ECS also 
generates its secondary input which is 
"c31 system.user interface.manage, user interface.spec.psdl". Notice that secondary 
inputs generated in the first two steps were none because the primary inputs in both cases 
were specification modules that have no secondary inputs yet since we did not have the 
requirement modules in our database yet (planned to be added in our future work). 

2. Two more steps are created starting with initial version of “fishies 1:1" (the fish 
farm control system). The first step with primary input 
“fishies.Control_water_Flow.spec.psdl” is automatically assigned the number 4 and the 
two modules "fishies.imp.psdl and fishies.Control water Flow.imp.psdl" are generated as 
its affected modules. The second step with primary input “fishies.Display_Status.imp.psdl” 


is automatically assigned the number 5 and generates no affected modules and the ECS 
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generates "fishies.Display Status.imp.psdl" as its secondary input. Images of the ECS 
screens for the details of the created steps and their automatically generated attributes 
(affected modules and secondary inputs) are presented in Appendix D Figure 35, Figure 36, 
Figure 37, Figure 38, and Figure 39. 

Notice that: Creating a step automatically generates the affected modules by the 
step as well as the secondary inputs used by the primary input of the step. (answering 


question 3). 


2. Enforcing Change Consequences for Global Consistency 

In this subsection we show how the ECS, after the manager approval of a step, 
will automatically create a substep of the approved step for each affected module by the 
Step. This is to guarantee that all the change consequences are considered as part of the 
original change and, as we will show later, that completing all the substeps of top level step 
is enforced as a condition for the completion of the top step. 

The manager reviews the created steps, adds the deadline, priority, and expertise 
level for each step, then he decides to approve steps 1, 2 and 4. The result of approving step 
1 is creating three substeps with the unique numbers 6, 7, and 8. Step 6 has the primary 
input “c3i_system.sensor_interface.spec.psdl” which is the primary input of step 1, that is 
because step 1 is now a composite step and will only be used for controlling and enforcing 
the completion of its three substeps as a condition for its completion. Step 7 has the primary 
inputs "c3i system.imp.psdl" and its secondary inputs are automatically generated (the 
spec component of c3i. system and the spec components of its three children as shown in 
Figure 42 in Appendix D). Step 8 has the primary input 
"c3i system.sensor. interface.imp.psdl" and it has the spec of the same component and the 
specs of its two children as its secondary inputs as shown in Figure 43 in Appendix D). Both 


of steps 7 and 8 automatically have step 6 as its predecessor, since the results of step 6 are 
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the basis for the changes required by them (the output of step 6 is a secondary input for both 


steps 7 and 8). 
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FIGURE 30. simplified version of the fish-farm system (fishies) 


Approving step 2 automatically creates two substeps 9 and 10 with primary inputs 


"C21 system.spec.psdl" and “c31_system.imp.psdl” respectively where step 9 precedes step 
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10. Approving step 4 also creates three substeps 11, 12, and 13 with the primary inputs and 
secondary inputs shown in Figure 48, Figure 49, and Figure 50 in Appendix D. Step 11 
precedes both of steps 12 and 13 as its the basis for their changes. 

It is worth noting that all the substeps inherit the deadlines, expertise level and 
the priorities of their top level steps as shown in the corresponding figures of the screen 
images of the details of the steps in Appendix D. 

Notice that: Approving a step creates a substep for each affected module by the 
proposed top step. The newly created steps are atomic and inherits the status "approved" 
of their top steps besides their attributes (deadlines, priorities, and expertise level). 


(answer for question 4). 


3. Incremental Planning 
1. The manager enters an estimated duration for the substep from 6 -13 using the 
edit_step command. The values entered are 6, 4, 5, 7, 3, 6, 5, and 4 hours respectively. 
2. The manager starts scheduling the steps starting with step l(related to 
C31 system project). Clicking on "schedule step" option in the manager's menu and 


entering the step number 1, the system outputs the following schedule for the three substeps 


of step 1: 
STEP ID S LEVEL D NAME START TIME FINISH TIME 
6 MEDIUM brockett 0 6 
O MEDIUM dampier 6 10 
7 MEDIUM brockett 6 11 


Confirmation required to save the schedule in DDB. Ansver(Y/N): y 


3. Ás soon as the manager confirms the output of the scheduler, the ECS saves it 
in the design database replacing the hours time units for start time and finish time with real 


dates and time of day, as captured from the show. schedule screen below: 





6 11/06/93 08:32 11/06/93 11:32 brockett 
8 11/06/93 14:32 11/07/93 10:32 dampier 
T 11/06/93 14:32 11/07/93 11:32 brockett 
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The ECS also sends an E mail message to brockett informing him about his 


assignment. 
4. Next, the manager schedules step 4 (related to the fish farm project). Clicking 
on "schedule, step" option in the manager's menu and enters the step number 4, the ECS 


outputs the following updated schedule. 


STEP ID S LEVEL D NAME START TIME FINISH TIME 
JJ LOW badr 0 6 
12 LOW badr 6 11 
7 MEDIUM dampier 6 PI 
8 MEDIUM brockett 6 10 
s LOW brockett 10 14 


confirmation required to save the schedule in DDB. Answer (Y/N): y 


Notice that step 6 does not show in the output of the scheduler because it is 
already assigned to a designer and the ECS does not give the scheduler the flexibility to 
change the assignment for step 6 to save the work done on that step. However step 6 still 


appears in the collective schedule saved in the design database as shown below. 





6 11/06/93 08:32 11/06/93 14:32 — brockett 
8 11/06/93 14:32 1/07/93 10:32 brockett 
7 11/06/93 14:32 11/07/93 11:32 dampier 
11 11/06/93 08:36 11/06/93 14:36 badr 
12 11/06/33 14:36 11/07/93 11:36 badr 
13 11/07/93 10:36 11/07/93 14:36 brockett 


One more feature of the scheduler is assigning the ready step 11 to badr right away 
since he is free at the time the step is scheduled for him and sends him an E_mail informing 
him about his assignment as shown below. 

Notice that the time the E_mail message is sent to designer badr is the same as the 
start time of his assignment in the schedule, because designer badr is free at the time step 4 
is scheduled. 

Before scheduling step 2 the manager enters step] as predecessor of step 2 
because their substeps (step 7 and step 10) are modifying the same component. This 
modification automatically makes step 7 a predecessor of step 10, which prevents the start 


of step 10 until the completion of step 7. 
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From badr Sat Nov 6 08:36:54 1993 
Return-Path: «badr» 
Received: from suns7-caps.cs.nps.navy.mil (sunsT7.cs.nps.navy.mil) 
ps.navy.mil (4.1/SMI-4.1) 
id AA06828; Sat, 6 Nov 93 08:36:54 PST 
Date: Sat, 6 Nov 93 08:36:54 PST 
From: badr (salah badr) 
Message-Id: «9311061636. aA068288taurus. cs.nps. navy. mil» 
To: badr 
status: R 


: You have been assigned the step no: 11 
E n 





Using the same command as in 4 above the manager schedules step 2. The 


resulting output of the scheduler is shown below as a screen image: 


STEP ID S LEVEL D NAME START TIME FINISH TIME 
9 HIGH dampier 0 7 
T LOW badr 6 11 
8 MEDIUM brockett 6 10 
7 MEDIUM dampier 7 12 
13 LOW brockett 10 14 
10 HIGH dampier 12 15 





S Confirmation required to save the schedule in DDB. Answer(Y/N): y 


Notice that step 6 and 11 do not appear in the output of the scheduler because they 
are already assigned, however they still appear in the schedule in the DDB as shown in the 
screen image of the saved schedule below. Also an e mail message is sent to designer 


dampier informing him about his assignment. 





6 11/06/93 08:32 11/06/93 14:32 brockett 
8 11/06/93 14:32 11/07/93 10:32 brockett 
T 11/06/93 15:45 11/07/93 12:45 dampier 
11 11/06/93 08:36 11/06/93 14:36 badr 

12 11/06/93 14:36 11/07/93 11:36 badr 

13 11/07/93 10:36 11/07/9314:36 brockett 
9 11/06/93 08:45 11/06/93 15:45 dampier 
10 11/07/93 12:45 11/07/93 15:45 dampier 


Notice also that step 10 is scheduled to start after both step 7 and 9 (its 


predecessors) scheduled finish times. 
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As a conclusion of this subsection, we have shown that: 1) The ECS incrementally 
schedules the steps as soon as the manager decides to do so. 2) Preserves the precedence 
between the steps and meeting their deadlines when it is feasible to do so. 3) Ensuring there 
is no the case that a designer is idle and there is a ready Step he can do and not assigned 


to him. 4) automatically informs each designer of his due assignment. 


4. Changes in the Plan 

Possible changes in the plan include the changes in the attributes of existing active 
steps such as deadlines, priority, precedence, estimated duration or even adjusting the 
affected modules and secondary input as well as suspending or abandoning any of the steps 
which may affect the plan (schedule). Another possible changes are the changes in the 
designer pool by adding, deleting or changing the expertise level of a designer. As an 
example of these changes we will examine changing the estimated duration of some of the 
steps either by an early commit of the step or increasing the estimated duration of another 


step. We will also examine the effects of suspending a step and deleting a designer. 


a. Early Commit of a Step 
Now designer brockett finishes his work on step 6 earlier than planned (for 
the sake of the test example) and commits his step. His commit command saves his changes 
to the design database creating new version of its input and automatically assigns it a 
version and variation numbers (variation 1 and version 2 in this case). This also triggers the 
scheduling mechanism to find his next assignment and adjust the schedule accordingly as 


shown in the screen image of the updated schedule below. 





8 11/06/93 09:46 — 11/06/9313:16 brockett 
7 11/06/93 13:46 11/07/93 10:16 brockett 
11 11/06/93 08:36 11/06/93 14:36 badr 

12 11/06/93 14:36 11/07/93 11:36 badr 

13 11/06/93 15:46 11/07/93 11:46 dampier 
9 11/06/93 08:15 11/06/93 15:45 dampier 
10 11/07/93 11:46 11/07/93 14:46 dampier 


As shown in the schedule above step 6 is removed from the current schedule. 


Designer brockett gets his next assignment which is step 8. The status of step 6 is changed 
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to "completed", and its finish time is set to 11/6/93 9:46 as shown in the screen image of 
the details of step 6 in Figure 51 in Appendix D. 

Notice that the availability of designer brockett earlier affected which 
designer does which step for steps that are scheduled but not yet assigned. Now step 7 
which was scheduled before for dampier is scheduled to brockett since it requires his 
expertise level and he should be available to perform this step before its deadline. This also 
changed the planned assignment for dampier from step 7 and 10 to steps 13 and 10. Asa 
result the scheduled finish times for step 2 and 4 (and their substeps) is improved (become 
earlier than before committing step 6). 

If we look at the status of the different steps in the system after the 
commitment of step 6 (using the command show. steps with option "all") we notice that 
step 6 is completed while steps 8, 11, and 9 are assigned which automatically makes the 
steps 1, 2, and 4 have the assigned status (according to the relations between top steps and 
their substeps defined in chapter 3 and specified in Appendix A. The rest of the steps 
(except step 3 and 5) are scheduled with estimated start time as indicated in the schedule. 


Step 3 and 5 are still in the proposed state. 





step set has 13 items. 


5, Status: proposed 
6, Status: completed 
7, Status: scheduled 
1, Status: assigned 
9, Status: assigned 
11, Status: assigned 
12, Status: scheduled 
3, Status: proposed 
d, Status: assigned 
8, Status: assigned 
10, Status: scheduled 
2, Status: assigned 
13, Status: scheduled 
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b. Increasing Estimated Duration of a Step 
According to the schedule step 11 which is assigned to designer badr 1s due 
to complete at 11/6/93 14:36, but he is asking to extend the estimated duration by 2 more 
hours. Now the Manager edits the estimated duration of step 11 to be 8 hours instead of 6 


using the edit step command from his menu. The result of this change is reflected 


automatically on the schedule as shown from screen image of the new schedule below. 





5 11/06/33 09:46 11/06/93 13:46 brockett 
7 11/06/93 13:46 11/07/93 10:46 brockett 
11 11/06/93 08:36 11/06/93 16:36 badr 

12 11/06/93 16:36 11/07/93 13:36 badr 

13 11/06/93 16:36 11/07/93 12:36 dampier 
9 11/06/93 08:45 11/06/93 15:45 dampier 
10 11/07/93 12:36 11/07/93 15:36 dampier 


Notice that the finish time of step 11 is changed to be 16:36 instead of 14:36 
in the previous schedule, and accordingly designer badr's next assignment is shifted to start 


at 16:36. 


c. Suspending a Step 


Now according to a management decision step 4 has to be suspended because 
the fish farm owner has a budget problem and cannot afford this change now but he will go 
with the other change proposed by step 5. 

The manager uses the suspend step command to suspend step 4 which 
automatically takes its substeps (11, 12, and 13) out of the schedule and their status is 
changed back to approved. The screen image of the updated schedule after suspending step 


4 1s shown below. 





8 11/06/93 09:46 11/06/93 15:46 brockett 
7 11/06/93 13:46 11/07/93 10:46 brockett 
3 11/06/93 08:45 11/06/93 15:45 dampier 
10 11/07/93 10:47 11/07/93 13:47 dampier 


because of suspending step 11 (part of step 4), an E mail message is sent to designer badr 


informing him that his step is suspended as shown below. 
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From badr Sat Nov 6 11:47:52 1993 

Return-Path: «badr» 

Received: from suns7-caps.cs.nps.navy.mil (suns7.cs.nps.navy.mil) 
ps.navy.mil (4.1/SMI-4.1) 

id AA08050; Sat, 6 Nov 93 11:47:46 PST 

Date: Sat, 6 Nov 93 11:47:45 PST 
From: badr (salah badr) 
aifessage-Id: <9311061947. AAD80S0@taurus. cs.nps. navy. mil> 
To: badr 
alstatus: R 


: Your current assigned step: 11 has been Suspended... 


[] 





Now the manager approves step 5, which automatically creates one substep 
with the unique number 14. The manager adds an estimated duration of 6 hours to step 14 
using the edit step command, then using schedule step command from his menu schedules 
step 5 which automatically adds its atomic substep 14 to the schedule and assigns it to 
designer badr who is idle at this point. The screen image of the updated schedule is shown 


below. 





11/06/93 09:16 11/06/93 13:46 ^ brockett 
11/06/93 13:16 11/07/93 10:46 brockett 
11/06/93 08:15 11/06/93 15:45 dampier 
11/07/93 10:47 11/07/93 13:47 dampier 
11/06/93 11:57 . 11/07/93 09:57 badr 


bet. ke 
a a "Ji 


The ECS also sends an E_mail message to badr informing him about his new 
assignment as shown below. 

The manager also approves step 3 and enters duration of 10 hours to its 
substep (step 15), then he schedules step 3. The scheduler finds out that the deadline for 
step 15 cannot be met. It suggests the calculated finish time to be used as the deadline of 
this step. The screen image of the scheduled is shown below. 

Upon the acceptance of the manager to the system suggestion it produces a 
feasible schedule according to the new deadline and automatically changes the deadline for 


step 3 and step 15 (the substep of step 4) to the new value as shown in the screen images of 


12] 


From badr Sat Nov 6 11:57:37 1993 
Return-Path: <badr> 


Received: from suns?-caps.cs.nps.navy.mil (suns?.cs.nps. navy. mil) 


ps.navy.mil (4.1/SMI-4.1) 


id AA08078; Sat, 6 Nov 93 11:57:36 PST 


Date: Sat, 6 Nov 93 11:57:36 PST 
ElFrom: badr (salah badr) 


Ad To: badr 
Estatus: R 


: You have been assigned the step no: 14 


TN 





in-feasible schedule: step * 15 
suggested deadline should be >= 13 
Would you like to change it? Answer (y/n)y 


Enter the new Deadline 13 


STEP ID S LEVEL D NAME 
7 MEDIUM brockett 1 
15 LOU dampier 3 
10 HIGH dampier de 


Confirmation required to save the schedule in DDB. Answer (Y/N): 


step 3 and step 15 in Figure 55 and Figure 55 in Appendix D. The screen image of the 


updated schedule is shown below. 





8 11/06/93 09:46 
T 11/06/93 13:46 
3 11/06/93 08:45 
10 11/08/93 09:46 
14 11/06/93 11:57 
15 11/06/93 15:46 


11/06/93 13:46 
11/07/33 10:46 
11/06/93 15:45 
11/08/93 12:16 
11/07/33 09:57 
11/08/93 03:46 


d. Committing a Step 


Now to show the automated VCCM capabilities of the ECS let us commit the 


substeps of step 1 then step 1. 


First let designer brockett commits step 8. This automatically updates the 


schedule as shown below. This leads to assigning brockett step 7 and sending him an 


E mail message informing him about his new assignment. 
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E MMessage-1d: <9311061957. A408078f8taurus. cs. nps. navy. mil> 


START TIME FINISH TIME 


16 


brockett 
brockett 
dampier 
dampier 
badr 


dampier 





7 11/06/93 13:46 11/07/93 10:46 brockett 
9 11/06/93 08:15 . 11/06/3315:15 dampier 
10 11/08/93 09:16 11/08/93 12:46 dampier 
14 11/06/93 11:57 . 11/07/93 09:57 badr 

15 11/06/93 15:46 11/08/93 09:46 dampier 


Now for the sake of the example let designer brockett commits step 7. This is 


an early commit which automatically updates the schedule as shown below. 





9 11/06/93 08:45 11/06/93 15:45 dampier 
10 11/06/93 15:52 . 11/07/93 10:52 dampier 
14 11/06/93 11:57 11/07/33 09:57 badr 

15 11/06/93 13:52 11/07/93 15:52 brockett 


Notice that as soon as designer brockett commits step 7 the system assigns 
him step 15 which was planned for designer dampier before, because step 15 1s ready and 
designer brockett becomes available after committing step 7. 

Before committing step 1 let us have a look at the versions of both c3i system 


and fishies prototypes in the database using show prototypes command as shown below. 





fishies Has the following versions: 
fishiesll 


c3i system Has the following versions: 
c3i systemll 
The manager commits step 1 using commit step command from his menu 
when all the verification and checking for the substeps are done. The result of this 


command is creating version number 2 on variation number 1 of the c31 sysem as shown 


below. 





fishies Has the following versions: 
fishiesll 


cgi system Has the following versions: 
c31_systemll 
c31_systeml2 
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Now if we look at the available steps at the system we notice that step 1 and 
its substeps 6, 7, and 8 are all have the status completed when we use the show steps with 


the option completed from the manager menu as shown below. 





step set has 15 items. 


6, Status: completed 
Y, Status: completed 
1, Status: completed 
8, Status: completed 


The screen images of steps 6, 7, 8 and 1 after they have been completed 
showing their expertise_level, the designer assigned to each step the start and finish times 
as well as the rest of the attributes are shown in Figure 51, Figure 53, Figure 55, and Figure 
54 in Appendix D. 

One more feature of the ECS is related to the default base version to which 
the top step is applied. When step 1, 2, and 3 are created as top level steps they had the 
c3i_system 1:1 as the base version for the three steps. When step 1 is committed producing 
c3i_system 1:2 the default base version for both steps 2 and 3 is automatically changed to 
be the newly created version c3i_system 1:2 as shown in the screen images of step 2 and 3 
in Figure 55 and Figure 55 in Appendix D. 

Another important feature of the ECS is the automatic warning to both 
manager and designer one hour before a step is due to commit as shown in the E-mail 


message below received by the manager. 


e. Dropping a Designer 
Designer dampier commits step 9, and the manager decides to schedule step 
4 again. Remember that when step 4 was suspended before its status changed back to 


approved. The updated schedule after committing step 9 is shown below. 





10 11/06/93 15:52 11/07/93 10:52 dampier 
14 11/06/93 11:57 11/07/93 09:57 badr 
15 11/06/93 13:52 11/07/93 15:52 . brockett 
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From badr Sat Nov 6 14:26:18 1993 


Return-Path: 


«badr» 


Received: from suns/-caps.cs.nps.navy.mil (suns7.cs.nps. navy. mil) 
ps.navy.mil (4.1/SMI-4.1) 

id AA08946; Sat, 6 Nov 93 14:26:18 PST 
Sat, 6 Nov 93 14:26:18 PST 


Date: 


B Status 





eiiFrom: badr (salah badr) 
@iMessage-Id: <9311062226. AADS946@taurus. cs. nps. navy. mil> 
filo: badr 
: R 


|ATTENTION REQUIRED Step: 
SS) 


should commit within an hour... 


The manager uses schedule step command for step 4 then the ECS produces 


the updated schedule below. 





11/06/93 15:52 
11/06/93 11:57 
11/06/93 13:52 
11/07/93 09:57 
11/08/93 09:57 
11/08/93 09:57 


11/07/93 10:52 
11/07/93 09:57 
11/07/93 15:52 
11/08/93 09:57 
11/08/93 13:57 
11/08/93 14:57 


dampier 
badr 
brockett 
badr 
dampier 
badr 


Now the manager decided to send designer badr to one of the sites, so he must 


delete him from the schedule. The manager uses drop designer option from the edit team 


sub-menu. After the system asks for the manager's confirmation, it suggests deadline 


changes for both steps 13 and 12 as shown below. 


When the suggested deadline changes is accepted by the manager, the ECS 


produces the following updated schedule. 





10 
14 
15 
11 
13 
12 


11/06/93 15:52 
11/07/93 10:59 
11/06/93 13:52 
11/07/93 15:59 
11/08/93 15:59 
11/08/93 15:59 


11/07/93 10:52 
11/08/93 08:59 
11/07/93 15:52 
11/08/93 15:59 
11/09/93 11:59 
11/09/93 12:59 


dampier 
dampier 
brockett 
brockett 
dampier 
brockett 


Notice that, the assigned and the planned steps for designer badr are 


rescheduled to both designers brockett and dampier. 
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pà 


bo 


LA 


NOTICE: The Designer just deleted was busy 
RESCHEDULING his/her tasks. 

in-feasible schedule: step # 13 

suggested deadline should be >= 20 

Would you like to change it? Answer(y/n)y 


Enter the new Deadline 20 

in-feasible schedule: step # 12 

suggested deadline should be >= 21 

Would you like to change it? Answer (y/n) y 


Enter the new Deadline 21 


STEP ID S LEVEL D NAME START TIME FINISH TIME 
14 LOW dampier 3 9 
11 LOV brockett 8 16 
12 LOW brockett 16 21 
13 LOW dampler 16 20 


ANALYSIS OF RESULTS 


. The ECS automatically identifies the affected components by the proposed changes 


(the primary inputs of the proposed changes) which is very important for software 
consistency. 


. The ECS creates a substep for each affected module of each approved step as a way 


to enforce the propagation of the change effects to guarantee software consistency. 


. The ECS gives the manager the edit capability to override the automated decisions 


which is always needed to give the managers a sense of control over their systems. 
and also to add the necessary information for the automated function to be per- 
formed properly 


The ECS supports incremental planning and rescheduling of tasks according to the 
expertise level required by each task, available designers, deadlines constraints, pre- 
cedence and priority constrains that is needed for medium to large software system 
that experience large number of changes that involves many designers. 


. The system also has an automated transparent version control and configuration 


management system that keeps track of the evolution history of the system through 
tracking the software component versions and which component belongs to which 
configuration 


. The ECS keeps the information among the three components of its state model con- 


sistent all the times to support cooperative work for multi-user, multiple projects 
organizations. 
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VI. CONCLUSIONS 


A. SUMMARY 


In this dissertation, we have presented the Evolution Control System (ECS) as an 
integrated system for software evolution. We integrate a transparent version control and 
configuration management mechanism for evolving software systems together with an 
assignment and scheduling system to enforce cooperation and coordination between 
designers working concurrently on the same or different systems. This integrated system is 
necessarily dynamic to cope with the special nature of the software evolution problem 
where the steps (changes) to be coordinated, scheduled and carried out are only partially 
known. Time required, the set of sub-tasks for each step, and the input/output constraints 
between steps are all uncertain, and subject to change as evolution steps are carried out. The 


ECS introduces the following features: 


1. Automated support for changes in plan during the execution of the plan. 


2. Automatic decision support for planning and team coordination based on design 
dependencies captured in the configuration model. 


3. Enhanced graph model for software evolution implemented as the main part of the 
state model of the system. 


4. The development and implementation of an automated version control and configu- 
ration management mechanism that automatically keeps track of the software com- 
ponent versions and which component belongs to which configuration. 


5. The development and implementation of a mechanism for detecting change conse- 
quences (determining the components affected by a change) to maintain the global 
consistency of the design database and provide serializability of updates. 


6. The development and implementation of a dynamic heuristic scheduling algorithm 
that finds a feasible schedule that: meets the deadline and precedence constraints of 
all the active steps, or suggest new deadlines for the lowest priority deadlines until a 
feasible schedule that meets the deadlines of the higher priority steps is reached. In 
addition, the scheduling mechanism supports incremental replanning as additional 
new steps are created or the attributes of the existing steps are changed. 


7. The above features are integrated in such a way that it 1s possible to use the serializa- 
tion of tasks according to their precedence constraints as a method for concurrency 
control as explained in detail in Chapter IV.A.2. 


We have found that providing automated support for the following aspects of software 


evolution is practical and feasible. 
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1. Changes in the plan during the execution of the plan, 

2. Planning and team coordination based on design dependencies, 
3. Detecting change consequences, 

4. Non-serialized parallel elaborations, and 

5. Automated version control and configuration management. 


B. IMPORTANCE OF RESEARCH RESULTS 


The importance of this research is that it provides managers of the medium to large 
software projects with the automated help they need to make informed and intelligent 
decisions in the management of software systems under development/evolution. This is 
especially important in environments where the number of changes 1s very large, difficult 
to follow up manually, hard to coordinate and have their consequences detected and 
propagated, which in turn threatens the consistency of the software. 

Automated help for detecting change consequences and coordinating changes 
according to the relations and constraints among different changes not only guarantees 
system consistency, but also guarantees full utilization of the human resources assigned to 
perform coordinated changes and avoids rollbacks. 

Keeping a complete record of the software’s evolution history via the developed 
configuration graph provides a rich history trail for future management reference. 

Automatically tracking of software component versions and component configuration 
dependencies in a way that is transparent to users relieves both managers and designers 
from the burden of manual book-keeping of the evolution history, which 1s a very hard, if 


not impossible, task in medium to large systems. 


C. PROPOSED EXTENSIONS 


The main proposed extension to this work is to develop and integrate a requirement 
dependencies mechanism which will propagate changes not only between the specification 
and implementation components, but also include requirements documents on-line where 
any change to a software system’s requirements automatically triggers proposed changes 
to corresponding specification modules and subsequently, the implementation modules. 

Another plausible refinement is to limit the responsibilities of each designer for a set 


of projects which constrains the ECS step assignments. Moreover make the scheduler take 
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into consideration other demands on designers time such as meetings, demos etc. Also 
include the option of limiting managers responsibilities to a single project. 

Other extension is to integrate a change-merging mechanism which will allow the 
manager to automatically combine results of several completed steps that were explored in 
parallel. This aspect is currently being explored [22] [23]. 

Another possible extension is the integration of policies for automatic quality check 
procedures before the commitment of steps. A minimum step in this direction is to ensure 
that the software can be compiled without errors before it can be committed to the design 
database. 

As for the implementation of the ECS system the following improvements are 
required: 


1. Integrating the menu driven user interface commands to the existing Tae user inter- 
face. 

2. Find a way for direct interface between Ada and Ontos DB to save the interface time 
between Ada to C++ then to Ontos which will significantly enhance the ECS perfor- 
mance. 
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VII. APPENDICES 


A. Formal Specifications 


bk 


State Model and related concepts 


DEFINITION ECS. state model 
INHERIT configuration graph 
INHERIT designer 
INHERIT schedule 
STATE ( graph: configuration graph, 
schedule: schedule. type, 
-- The schedule also is used for optemizing the operations of the 
-- scheduling algorithm. 
primary. input: map (step, set (component reference] J, 
secondary input: map (step, set (component reference], 
affected modules: map (step, set (component reference] ], 
deadline: map {step,time}, 
estimated_duration: map {step, natural}, 
precedence: map {step, set {step}}, 
priority: map (step, integer}, 
status: map (step, step. status], 
step. expertise level: map (step, exp level], 
designer. pool: set (designer]) 
INVARIANT 
feasible schedule (schedule) | manager. notified (schedule), 
-- either a feasible schedule is reached or manager is notified of suggestion 
-- to get a feasible one. 
known designers (schedule), 
-- every designer in the schedule must be in the designer. pool 


active steps (schedule), 
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-- each step in the schedule must be in the configuration graph, must be atomic 
-- and its status must be either scheduled or assigned, 

-- and the schedule must include all such steps. 

single assignment (schedule) 


-- no more than one step is assigned to the same designer at the same time 


INITIALLY graph = empty _ graph, 
designer_pool = {}, 


schedule = {} 


CONCEPT component_reference: type 

WHERE Subtype (specific_component_reference, component_reference) 
CONCEPT object_id (c: component reference) VALUE (obj id: string) 
CONCEPT variation, id (c: component reference) VALUE (var. id: natural) 
CONCEPT version, id (c: specific component reference) VALUE (v. id: natural) 
CONCEPT top level (c: specific component reference) VALUE (b: boolean) 
WHERE b <=> -EXISTS(cl:specific component reference :: c part of c1) 


-- prototypes are represented as top. level components 


CONCEPT step. status: type 
WHERE step. status - enumeration (proposed, approved, scheduled, assigned, 
abandoned, completed, all} 


-- all is used to indicate all the steps of a certain prototype disregarding their status 


CONCEPT exp_level:: type 
WHERE exp_level = enumeration {low, medium, high, none} 
-- none is used as a default value for the expertise_level of a step and treated as 
-- low to distinguish between the values entered by the manager and the default 


-- values. 
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CONCEPT feasible. schedule (s: schedule type) VALUE (b: boolean) 
WHERE b «-» known designers (s) & single assignment (s) & active. steps (s) 
& predecessors, finished (s)& on. time (s, deadline) & sufficient, expertise (s) 
CONCEPT known, designers (s: schedule type) VALUE (b: boolean) 
WHERE b <=> ALL (d: designer SUCH THAT d IN s:: d IN designer. pool) 


-- every designer in the schedule must be in the designer. pool 


CONCEPT single_assignment (schedule: schedule_type) VALUE (b: boolean) 
WHERE b <=> ALL (sl, s2: step:: s1 IN schedule & s2 IN schedule & 
schedule (s1).designer = schedule (s2).designer & 
schedule (s1).scheduled finish, time » schedule(s2).scheduled, start time 
> schedule(s1).scheduled_start_time => sl= s2) 


-- no more than one step is assigned to the same designer at the same time 


CONCEPT active_steps (s: schedule_type) VALUE (b: boolean) 
WHERE b <=> ALL (st: step:: st IN s <=> step_in_graph (st, graph) & atomic (st) 
& status (st) IN {scheduled, assigned }) 
-- each step in the schedule must be in the configuration graph, must be atomic, 
-- and its status either scheduled or assigned, and the schedule must include all 


-- such steps 


CONCEPT atomic (st: step) VALUE (b: boolean) 
WHERE b «-» - EXISTS (stl: step :: stl part. of st) 


-- Á step is atomic if it has no substeps. 
CONCEPT predecessors. finished (schedule: schedule type) 


VALUE (b: boolean) 
WHERE b <=> ALL (stl, st2: step SUCH THAT st1 IN schedule & 
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st2 IN schedule & precedes (st1, st2, dep. graph) :: 


schedule(stl).scheduled finish, time «2 schedule(st2).scheduled start time) 


CONCEPT on time (schedule: schedule, type, d: map (step,time]) 
VALUE (b: boolean) 
WHERE b <=> ALL (st: step SUCH THAT st IN schedule:: schedule 


(st).scheduled_finish_time <= d (st)) 


CONCEPT sufficient_expertise (schedule: schedule_type) VALUE (b: boolean) 
WHERE b <=> ALL (st: step SUCH THAT st IN schedule:: 
step_expertise_level (st) <= designer_expertise_level (schedule (st).designer)) 
-- a designer can be assigned to a step only if his expertise. level is at least 


-- that of the assigned step 


CONCEPT unique step. id (s: step) VALUE (b: boolean) 
WHERE b <=> ALL (s1: step:: step. id (s1) 7 step id (s) 2» sl1- s) 


-- step. id is unique for all steps. 


END 


a. Configuration graph 
DEFINITION configuration graph 
INHERIT component node 
INHERIT step. node 
MODEL (component nodes: set (version), step nodes: set (step), 
part. of edges, used by. edges, I. edges, O edges: set [pair]) 
INVARIANT 
ALL (g: configuration graph, e: pair SUCH THAT e IN g.part of edges: 
[(e.start IN g.component. nodes & e.end IN g.component nodes) ! 


(e.start IN g.step nodes & e.end IN g.step. nodes)] 
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le IN g.used_by_edges:: e.start IN g.component_nodes & e.end IN 
g.component, nodes !e IN g.I edges:: e.start IN g.component. nodes & e.end IN 


g.step. nodes 


le IN g.O edges:: e.start IN g.step nodes & e.end IN g.component, nodes) 


CONCEPT is component node (x: version, g: configuration graph) 
VALUE (b: boolean) 
WHERE b «-» x IN g.component nodes 


CONCEPT component in graph (o: component reference, g: configuration, graph) 
VALUE (b: boolean) 
WHERE b <=> SOME (c: version SUCH THAT is component node (c, g):: 
object id (c) 7 object id(o)) 


CONCEPT step. in. graph (s: step, g: configuration graph) VALUE (b: boolean) 
WHERE b <=> s IN g.step nodes 


CONCEPT empty_graph VALUE (g: configuration_graph) 
WHERE g.nodes = {}, g.edges = { } 


CONCEPT add, step. node (s: step, gl: configuration graph) 

-- Add a step node. 

VALUE (g2: configuration graph) 

WHERE g2.step nodes - gl.step nodes U (s], g2.component nodes - 


gl.component nodes, g2.edges - gl.edges 


CONCEPT add component node (c: version, gl: configuration, graph) 


-- Add a component node. 
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VALUE (g2: configuration graph) 


WHERE g2.component nodes 7 gl.component nodes U (c), g2.step nodes - 
gl.step. nodes, g2.edges - gl.edges 


CONCEPT add input edge (c: version, s: step, gl: configuration graph) 
-- Add an input edge. 


VALUE (g2: configuration graph) 
WHERE g2.component nodes - gl.component, nodes U (c), g2.step. nodes - 
gl.step. nodes U (s) 
g2.I edges 7 gl.I edges U [[start:: c, end:: s]), g2.O edges » gl.O edges, 
g2.part of edges — gl.part of edges, g2.used by edges - gl.used by edges 


CONCEPT add, output edge (s: step, c: version, gl: configuration graph) 
-- Add an input edge. 


VALUE (g2: configuration graph) 

WHERE g2.component nodes - gl.component nodes U {c}, 

g2.step nodes - gl.step nodes U (s) 

g2.1 edges - gl.I edges, g2.O edges - g1.O edges U ([start:: s, end:: c]), 
g2.part of edges - gl.part of edges, g2.used by edges - gl.used by. edges 


CONCEPT remove input. edge (c: component, s: step, gl: configuration graph) 


-- Remove an input edge. 

VALUE (g2: configuration graph) 

WHERE g2.nodes = g1.nodes, 

g2.I edges - gl.I edges - ([start:: c, end:: s]), g2.O edges » gl.O edges, 
g2.part of edges - gl.part of edges, g2.used by edges - gl.used by edges 


CONCEPT remove. input, edges (s, g1) VALUE (g2: configuration graph), WHERE 


g2.nodes = g1.nodes, 
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g2.I edges » gl.I edges - (ALL (e: I edge SUCH THAT end (e)- s)], 
g2.O. edges 2 gl.O edges, g2.part of edges - gl.part of edges, 
g2.used by edges - gl.used by edges 


CONCEPT configuration graph node: type 
WHERE Subtype (version, configuration graph node), 
Subtype (step, configuration graph node), 
ALL (n: configuration graph node :: n IN version | n IN step) 
-- configuration graph nodes are either steps or versions. 
CONCEPT pair: type 
WHERE parr = tuple (start, end:: configuration graph node j 


CONCEPT version: specific component reference 


END 


DEFINITION step node -- Concepts for describing step. node 


CONCEPT step: type 

CONCEPT step. id (s: step) VALUE (s. id: natural) 
CONCEPT top. level(s: step) VALUE (b: boolean) 
WHERE b <=> ~EXISTS(s1: step:: s part of s1) 


END 


DEFINITION dependency graph -- Concepts for describing 


dependency. graph 


dep graph- f(dep. nodes, dep. edges) 
CHOOSE (dep. nodes, dep. edges SUCH THAT 
ALL(n:n e dep nodes «2» n IN graph.step nodes & 
status(step(n)) IN (scheduled, assigned) & atomic (step(n))) & 
ALL(e: e e dep edges «-» e.start, e.end IN dep nodes )) 


END 
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b. Designer Pool 


DEFINITION designer -- Concepts for describing designer. pool 
CONCEPT designer: type 
| CONCEPT name (d: designer) VALUE (n: string) 
| CONCEPT designer expertise level (d: designer) VALUE (e: exp level) 
CONCEPT status (d: designer) VALUE (s: enumeration (busy, free)) 
END 


c. Schedule 
DEFINITION schedule -- Concepts for describing the schedule 
CONCEPT schedule type: type 
WHERE schedule. type - map (s: step, tuple (d:: designer, scheduled start time, 


scheduled finish. time: time]) 


CONCEPT update schedule (old schedule: schedule type, s: step SUCH THAT 
status (s) = approved) 

VALUE (new. schedule: schedule, type) 

-- recalculate schedule due to scheduling a new step 

WHERE ALL (s1: step SUCH THAT sl part. of s & atomic (s1):: 

s] IN new. schedule) & ALL (s1: step:: s1 IN old_schedule => s1 IN new_schedule) 


CONCEPT update_schedule (old_schedule: schedule_type, s: step SUCH THAT 
status (s) IN (abandoned, completed]) 

VALUE (new. schedule: schedule type) 

-- recalculate schedule due to abandoning a step 

WHERE ALL (sl: step SUCH THAT sl part. of s & atomic (s1):: 

~ (sl IN new_schedule) & EXISTS (s2 IN new_schedule SUCH THAT 
new_schedule (s2).designer = old_schedule (s1).designer & status (s2) = assigned)) & 
ALL (s2: step:: s2 IN old, schedule «-» s2 IN new. schedule | s2 part of s) 
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CONCEPT update, schedule (old. schedule: schedule, type, d: designer SUCH THAT 
— (d IN old. schedule)) 

VALUE (new. schedule: schedule, type) 

-- recalculate schedule after adding a new designer 

WHERE (d IN new. schedule & ALL (sl: step:: s1 IN new. schedule «-» s1 IN 
old. schedule)) 


CONCEPT update. schedule (old schedule: schedule type, d: designer SUCH THAT 
d IN old. schedule) 
VALUE (new. schedule: schedule type) 
-- recalculate schedule after dropping a designer 
WHERE (-(d IN new. schedule) & ALL (sl: step:: s1 IN new. schedule «-» 
s] IN old. schedule)) 


CONCEPT schedule, changes (old schedule, new. schedule: schedule type) 

VALUE (ch: schedule type) 

WHERE ALL (sl: step:: s1 IN ch «2» (sl IN old. schedule & ~ (s1 IN 

new schedule)) | (^ (sl IN old. schedule) & s1 IN new. schedule) ! 

(old. schedule [s1] ^2 new. schedule [s1] & ch (s1) 2 new. schedule [s1])) 
END 


d. Assignments 
DEFINITION assignment -- concepts for assigning a designer to 
a step 
INHERIT ECS state model 
INHERIT designer 
CONCEPT curr. assign (s: step , d: designer) VALUE (b: boolean) 
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I 


WHERE b «-» active (s) & predecessor finished (s) & status (d) = free & 


designer expertise level (d) »- step. expertise level (s) 


CONCEPT predecessor. finished (s: step) VALUE (b: boolean) 
WHERE b <=> ALL (s1: step SUCH THAT active (sl) :: 
—precedes(s1, s, dep. graph)) 


CONCEPT active (s: step) VALUE (b: boolean) 
WHERE b «-» status (s) IN (scheduled, assigned) 


CONCEPT check, due completion (s: schedule type) VALUE (w: warning, ss: set 


{ step }) 
WHERE ALL (st: step :: st IN ss <=> st IN s & status (st) = assigned & 


s(st).scheduled_finish_time <= current_time) 


CONCEPT warning: string 
WHERE warning = “the following steps missed their finish time, either commit or 


increase their estimated duration” 


END 


2. Behavior Model 


MACHINE Evolution Control System 


INHERIT designer. interface 
INHERIT manager. interface 


END 
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MACHINE common interface 


available steps 





show steps 








no such prototype 


create step 





no such prototype 
"os Sic We 


undefined input 


FIGURE 31. Stimulus Response diagram for the common interface 


INHERIT ECS. state model 


MESSAGE show. steps (p: component reference SUCH THAT top. level(p), 
t: step. status) 
-- display all steps with the given status of the given prototype 
WHEN component_in_graph(p, graph) 
REPLY (s: sequence (step]) 
WHERE ALL (i: step:: i IN s «-» step in graph(i, graph) & (status (i) = t | t=all )) 
OTHERWISE REPLY EXCEPTION no such prototype 


MESSAGE create, step (p: component reference SUCH THAT top. level(p), 


primary. input : set (component reference]) 
WHEN component in, graph(p, graph)& 
component in graph (c: component reference SUCH THAT c IN primary. input, 
graph) 
REPLY (s: step 
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| WHERE unique. step id (s) 

TRANSITION primary, input —bind(s, prim, *primary. input), 
secondary. input = bind(s, sec, *secondary_input), 
affected_modules = bind (s, aff, *affected_modules), 
-- affected modules and secondary inputs are automatically generated 
add_step_node(s, graph), only_change (graph, * graph, s) 

WHEN component_in_graph(p, graph)& 

~ component in graph (c: component reference SUCH THAT c IN 

primary. input, graph) 

REPLY EXCEPTION undefined input 

OTHERWISE REPLY EXCEPTION no such, prototype 
END 


MACHINE edit interface 
-- This interface includes all the messages required to modify the step attributes, the 
-- management constraints, and the designer pool data. 


INHERIT ECS. state model 


MESSAGE add primary. input (i: step SUCH THAT top level (i), 
c: specific component reference) 
-- this is used to add primary. input to the step as they become known 
-- normally a step has one primary input except in case of a merge when it has 
-- two or more 
WHEN - component in graph (c, graph) 
REPLY EXCEPTION undefined input 
WHEN step. in graph(i,graph) & component in graph (c, graph) 
REPLY done 
TRANSITION 


primary. input 7 bind(i, *primary. input (1) U (c), *primary. input), 
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only change (i, *1, c) 


OTHERWISE REPLY EXCEPTION no. such step 


MESSAGE add, affected. modules (i: step SUCH THAT top. level (1), 
c: component reference) 

-- this is used to add affected modules to the step as they become known 
-- since the calculated set is an approximation 
WHEN - component in graph (c, graph) 
REPLY EXCEPTION undefined input 
WHEN step_in_graph(i,graph) & ~ (i IN schedule) 
REPLY done 
TRANSITION only change (i, *i, c), 
affected. modules - bind(i, *affected modules (i) U {c}, *affected modules) 
WHEN i IN schedule & feasible schedule (update, schedule (*schedule, 1)) 
REPLY (schedule. changes (*schedule, schedule)) 
-- the schedule must be updated to maintain the invariant 
TRANSITION only_change (i, *1, c), only. change(*schedule, schedule, i), 
affected modules - bind(i, *affected modules (1) U (c), *affected modules) 
WHEN i IN schedule & SOME (s: schedule type SUCH THAT 
s —- update schedule (*schedule, 1):: ~ feasible schedule (s) & 
~ manager confirmation (s)) 
-- ask for manager confirmation only if a feasible schedule cannot be reached 
REPLY changes undone 
WHEN i IN schedule & SOME (s: schedule type SUCH THAT 

s — update. schedule (*schedule, 1):: 

— feasible schedule (s) & manager. confirmation (s)) 

REPLY (schedule changes (*schedule, schedule)) 

TRANSITION only. change (i, *i, c), only. change(*schedule, schedule, i), 
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affected modules - bind(i, *affected modules (i) U (c), *affected modules) 


deadline - least slips (*deadline, schedule) 

-- the schedule must be updated to maintain the invariant 

-- The deadline changes is kept to the minimum required to get a feasible 
-- Schedule 


OTHERWISE REPLY EXCEPTION no such step 


MESSAGE add. secondary. input (1: step SUCH THAT top level (1), 
c: component reference) 
-- this is used to add secondary. input to the step as they become known 
WHEN - component in graph (c, graph) 
REPLY EXCEPTION undefined input 
WHEN step in, graph(i,graph) & ~ (i IN schedule) 
REPLY done 
TRANSITION only_change (1, *1, c), 
secondary_input = bind(i, *secondary_input (1) U (c], *secondary . input) 
WHEN 1 IN schedule & feasible_schedule (update_schedule (*schedule, 1)) 
REPLY (schedule_changes (*schedule, schedule)) 
-- the schedule must be updated to maintain the invariant 
TRANSITION only. change (i, *i, c), only. change(*schedule, schedule, i), 
secondary. input - bind(i, *secondary. input (i) U (c), *secondary. input) 
WHEN i IN schedule & SOME (s: schedule type SUCH THAT 
s — update. schedule (*schedule, 1):: ^ feasible schedule (s) $ 
- manager, confirmation (s)) 
-- ask for manager confirmation only if a feasible schedule cannot be reached 
REPLY changes undone 
WHEN i IN schedule & SOME (s: schedule type SUCH THAT 


s = update, schedule (*schedule, 1):: 


143 


— feasible schedule (s) & manager. confirmation (s)) 

REPLY (schedule changes (*schedule, schedule)) 

TRANSITION only. change (i, *i, c), only change(*schedule, schedule, i), 
secondary. input — bind(i, *secondary. input (i) U (c), *secondary. input), 
deadline - least slips (*deadline, schedule) 

-- the schedule must be updated to maintain the invariant 

-- The deadline changes is kept to the minimum required to get a feasible 


-- schedule 


OTHERWISE REPLY EXCEPTION no such step 


MESSAGE delete, primary. input (i: step SUCH THAT top level (1), 


c: component reference) 
-- this is used to delete inputs from the step's primary input. 
WHEN WHEN - component, in, graph (c, graph) 
REPLY undefined, input 
WHEN step in. graph(i,graph) 
REPLY done 
TRANSITION primary input = bind(i, *primary_input (1) - {c}, 
*primary. input), 
only. change (i, *1, primary. input) 


OTHERWISE REPLY EXCEPTION no. such step 


MESSAGE delete, affected modules (i: step SUCH THAT top level (1), 


c: component reference) 
-- this is used to delete those affected modules that do not need change. 
WHEN - component in graph (c, graph) 
REPL Y undefined, object 
WHEN step in graph(i,graph) & status (1) = approved 
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REPLY done 

TRANSITION only. change (i, *i, c), 

affected modules = bind(i, *affected modules (1)- (c), *affected modules) 
WHEN 1 IN schedule 

REPLY (schedule_changes (*schedule, schedule)) 

TRANSITION only_change (1, *1, cs), 

affected_modules = bind(1, *affected_modules (i)- (c), *affected modules) 


OTHERWISE REPLY EXCEPTION no_such_step 


MESSAGE delete_secondary_input (1: step SUCH THAT top_level (1), 
c: component_reference) 
-- this 1s used to delete secondary inputs to a step 
WHEN - component in, graph (c, graph) 
REPLY EXCEPTION undefined input 
WHEN step in. graph(iggraph) & ~ (i IN schedule) 
REPLY done 
TRANSITION only_change (1, *1, c), 
secondary_input = bind(i, *secondary_input (1) - {c}, *secondary_input) 
WHEN i IN schedule 
REPLY (schedule. changes (*schedule, schedule)) 
TRANSITION only. change (i, *i, secondary. input), 
secondary. input — bind(i, *secondary. input (1) - (c), *secondary input) 
-- the schedule must be updated to maintain the invariant 


OTHERWISE REPLY EXCEPTION no such step 


MESSAGE update. priority (i: step SUCH THAT top level (1), p: natural) 
WHEN i IN steps & (p > priority (11) SUCH THAT 11 IN precedence (1)) 
REPLY EXCEPTION priority conflict 
WHEN step_in_graph(i,graph) & ~ (1 IN schedule) 
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REPLY done 
TRANSITION priority = bind (1, p, *priority), only_change (1, *1, p) 
WHEN i IN schedule & feasible schedule(update schedule (*schedule, i)) 

REPLY (schedule changes (*schedule, schedule)) 

TRANSITION priority - bind (i, p, *priority) 

-- the schedule must be updated to maintain the invariant 
WHEN i IN schedule & SOME (s: schedule type SUCH THAT 

s 2 update, schedule (*schedule, 1):: ~ feasible schedule (s) & 

- manager confirmation (s)) 


REPLY change undone 
WHEN i IN schedule & SOME (s: schedule type SUCH THAT 


s — update schedule (*schedule, i): ^ feasible schedule (s) & 

manager confirmation (s)) 

REPLY (schedule, changes (*schedule, schedule)) 

TRANSITION priority = bind (1, p, *priority), 

deadline = least_slips (*deadline, schedule) 

-- the schedule must be updated to maintain the invariant 

-- The deadline changes is kept to the minimum required to get a feasible 


-- schedule 
OTHERWISE REPLY EXCEPTION no_such_step 


MESSAGE update precedence (1: step SUCH THAT top_level (1), p: set {step}) 
WHEN step_in_graph(,graph) & (priority (1) > priority (11) SUCH THAT 
11 IN p) 
REPLY EXCEPTION priority_conflict 
WHEN step. in. graph(igraph)& - (i IN schedule) 


REPLY done 
TRANSITION precedence - bind (i, p, *precedence), only. change (i, *i, p) 


WHEN i IN schedule & feasible schedule (update, schedule (*schedule, i)) 
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REPLY (schedule changes (*schedule, schedule)) 
-- the schedule must be updated to maintain the invariant 
TRANSITION precedence = bind (i, p, *precedence) 

WHEN 1 IN schedule & SOME (s: schedule type SUCH THAT 
s — update_schedule (*schedule, 1):: ~ feasible_schedule (s) & 
~ manager_confirmation (s)) 
-- ask for manager confirmation only if schedule invalidated 
REPLY change_undone 

WHEN 1 IN schedule & SOME (s: schedule type SUCH THAT 
s — update schedule (*schedule, 1):: ^ feasible schedule (s)& 
manager. confirmation (s)) 
REPLY (schedule changes (*schedule, schedule)) 
TRANSITION precedence - bind (i, p, *precedence), 

deadline - least. slips (*deadline, schedule) 
-- the schedule must be updated to maintain the invariant 
-- The deadline changes is kept to the minimum required to get a feasible 
schedule 


OTHERWISE REPLY EXCEPTION no_such_step 


MESSAGE update_deadline (i: step SUCH THAT top_level (1), d:time) 

WHEN step_in_graph(i,graph) &~ (i IN schedule) 
REPLY done 
TRANSITION deadline = bind (i, d, deadline) 

WHEN i IN schedule & feasible_schedule (update_schedule (*schedule, 1)) 
REPLY (schedule_changes (*schedule, schedule)) 
TRANSITION deadline = bind (i, d, deadline) 
-- the schedule must be updated to maintain the invariant 

WHEN i IN schedule & SOME (s: schedule type SUCH THAT 
s — update, schedule (*schedule, i):: ^ feasible schedule (s) & 


- manager confirmation (S)) 
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REPLY change. undone 
WHEN i IN schedule & SOME (s: schedule type SUCH THAT 
s = update, schedule (*schedule, 1):: — feasible schedule (s) & 
manager. confirmation (Ss)) 
REPLY (schedule changes (*schedule, schedule)) 
TRANSITION deadline = least_slips (*deadline, schedule) 
-- the schedule must be updated to maintain the invariant 
-- The deadline changes is kept to the minimum required to get a feasible 
-- schedule 


OTHERWISE REPLY EXCEPTION no_such_step 


MESSAGE update. estimated duration (i: step, t: natural) 

WHEN step. in, graph(i,graph) & ~ (i IN schedule) 
REPLY done 
TRANSITION estimated, duration - bind (i, t, *estimated duration) 

WHEN i IN schedule & feasible schedule(update, schedule (*schedule, 1)) 
REPLY (schedule changes (*schedule, schedule)) 
TRANSITION estimated. duration 2 bind (i, t, *estimated, duration) 
-- the schedule must be updated to maintain the invariant 

WHEN i IN schedule & SOME (s: schedule type SUCH THAT 
s = update, schedule (*schedule, 1):: ^ feasible schedule (s) & 
- manager confirmation (s)) 
REPLY change undone 

WHEN i IN schedule & SOME (s: schedule type SUCH THAT 
s = update. schedule (*schedule, i):: ^ feasible schedule (s) & 
manager confirmation (s)) 
REPLY (schedule, changes (*schedule, schedule)) 
TRANSITION estimated, duration = bind (i, t, *estimated duration), 
deadline = least. slips (*deadline, schedule) 


-- the schedule must be updated to maintain the invariant 
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-- The deadline changes is kept to the minimum required to get a feasible 
-- schedule 


OTHERWISE REPLY EXCEPTION no. such, step 


CONCEPT consistent. deadlines (dl, d2: map (step,time)) VALUE (b: boolean) 
WHERE b <=> ALL (s: step:: d1(s) = d2 (s)) 
-- for dl to be consistent with d2, either the deadline of each step in dl is 
-- equal to that of the same step in d2 or relaxed to be equal to its calculated 


-- finish time. 


CONCEPT valid slip (d1, d2: map {step,time}) VALUE (b: boolean) 
WHERE b «-» consistent. deadlines (dl, d2) & 
ALL (s1, s2: step:: 
d1(s1) = none -= d2(s1) € d1(s2) -= none => priority (s2) >= priority (S1)) 
-- new deadline map is valid only if the relaxed deadlines are the lowest 


-- priority deadlines 


CONCEPT slips more (dl, d2: map (step,time]) VALUE (b: boolean) 
WHERE b <=> consistent deadlines (dl, d2) & dl —- d2 


CONCEPT least. slips (dl: map (step,time)], s: schedule type) 
VALUE (d2: map (step,time]) 
WHERE valid. slip (d2,d1) & feasible schedule (s, d2) & 
ALL (d3: map {step,time}:: 
slips_more (d2, d3) & consistent_deadlines (d3,d1) => 
~ SOME (s1: schedule_type::feasible_schedule (s1, d3)) 


CONCEPT only_change (x y: any, $attribute_names: identifier) 
VALUE (b: boolean) 
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-- True if x and y can differ only in the listed attributes. 


WHERE ALL (id: identifier: x.1d ~= y.1d => id IN attribute names) 


END 


3. Manager Interface 


MACHINE designer pool view 

INHERIT ECS state model 

INHERIT common, interface 

MESSAGE add designer (d: designer) 

-- adding a designer to the designer pool 

WHEN - (d IN designers pool) 

REPLY (schedule changes (*schedule, schedule)) 
TRANSITION designers pool - *designers pool U (d] 
-- the schedule must be updated to use the new designer and maintain the 
-- invariant 
-- adding a designer cannot invalidate a feasible schedule 


OTHERWISE REPLY EXCEPTION designer. exists 


MESSAGE drop designer (d: designer) 
-- remove designer from the designers, pool 
WHEN d IN designer. pool &- (d IN schedule) 
REPLY done 
TRANSITION 
designers pool - *designers pool - (d) 
WHEN d IN designer. pool & d IN schedule 
REPLY warning. confirmation required 
WHEN d IN designer. pool & d IN schedule & 
SOME (s: schedule type SUCH THAT s- update, schedule (*schedule, d):: 
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feasible schedule (s) & manager. confirmation (s)) 

REPLY (schedule changes (*schedule, schedule)) 

TRANSITION designer. pool - *designer. pool - (d) 
WHEN d IN designer pool & d IN schedule & SOME (s: schedule type SUCH 
THAT 


s = update schedule (*schedule, d):: ^ feasible schedule (s) & 
- manager. confirmation (s)) 
REPLY change undone 
WHENd IN designer pool & d IN schedule & 
SOME (s: schedule type SUCH THAT s - update, schedule (*schedule, d):: 
— feasible schedule (s) & manager. confirmation (s)) 
REPLY (schedule changes (*schedule, schedule)) 
TRANSITION designers pool 2 *designers. pool - (d), 
deadline - least, slips (*deadline, schedule) 
-- the schedule must be updated to maintain the invariant 


-- The deadline changes is kept to the minimum required to get a feasible 
-- schedule 


OTHERWISE REPLY EXCEPTION no, such designer 


MESSAGE designer, expertise level (d: designer, e: exp level) 
-- modify the designer's expertise level 
WHEN d IN designer. pool & — (d IN schedule) 
REPLY done 
TRANSITION designer. expertise level (d) = e, 
only. change (*d, d, designer expertise level) 
WHEN d IN designer. pool & d IN schedule & 
feasible schedule (update. schedule (*schedule, d)) 
REPLY (schedule. changes (*schedule, schedule)) 
TRANSITION designer. expertise level (d) =e, 
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only change (*d, d, designer expertise level) 
WHEN d IN designer. pool & d IN schedule & 
SOME (s: schedule. type SUCH THAT sz update. schedule (*schedule, d):: 
— feasible schedule (s) & ^ manager confirmation (s)) 
REPLY change undone 
WHEN d IN designer. pool & d IN schedule & 
ALL (s: schedule type SUCH THAT s- update. schedule (*schedule, d):: 
— feasible schedule (s) & manager. confirmation (s)) 
REPLY (schedule. changes (*schedule, schedule)) 
TRANSITION designer expertise level (d) 2 e, 
only. change (*d, d, designer expertise level) 
deadline - least. slips (*deadline, schedule) 
-- the schedule must be updated to maintain the invariant 
-- The deadline changes is kept to the minimum required to get a feasible 
-- schedule 


OTHERWISE REPLY EXCEPTION no such designer 


MESSAGE show. designers (dp: set(designer]) 
-- display all the designers in the designer's pool 
WHEN dp /= {} 
REPLY (s: set {designers }) 
WHERE ALL (d: designer :: d IN s «2» d IN dp) 
OTHERWISE REPLY EXCEPTION no. such, prototype 


END 


MACHINE manager interface 
INHERIT user -- defines User. class, uses 
INHERIT designer. pool view 
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INHERIT common interface 
INHERIT edit. interface 
INHERIT ECS. state model 


MESSAGE approve. step (s: step SUCH THAT top level(s)) 
-- used to approve a step which triggers the change propagation via the 
-- calculation of the affected modules 
WHEN status (s) = proposed 
REPLY (ss: set (component reference)) 
TRANSITION status = bind (s, approved, *status), auto. create substep (s) 
-- advance the step status to "approved" 
-- calculate the set of modules affected by the step 
-- create an atomic substep for each affected module 


OTHERWISE REPLY EXCEPTION no, such proposed step 


MESSAGE show. schedule (p: prototype name) 
-- display the full schedule 
WHEN prototype (p) IN prototypes 
REPLY (s: schedule type) 
WHERE s - schedule 
OTHERWISE REPLY EXCEPTION no. such. prototype 


MESSAGE schedule step (s: step) 
WHEN status (s) = approved $ 
SOME (s;: step SUCH THAT s; part of s:: estimated duration (sj) = 0) 


REPLY estimated, duration, not, specified 


WHEN status (s) = approved & feasible schedule (update schedule (*schedule, 
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REPLY (schedule changes (*schedule, schedule)) 
TRANSITION status = bind (s, scheduled, *status) 
-- the schedule must be updated to maintain the invariant 
WHEN status (s) 2 approved & SOME (sch: schedule type SUCH THAT 
sch — update schedule (*schedule, s)::~ feasible schedule (sch) & 
- manager, confirmation (sch)) 
REPLY step. is. not. scheduled 
WHEN status (s) - approved & SOME (sch: schedule type SUCH THAT 
sch 2 update, schedule (*schedule, s):: ^ feasible schedule (sch) & 
manager. confirmation (sch)) 
REPLY (schedule changes (*schedule, schedule)) 
TRANSITION status — bind (s, scheduled, *status) 
deadline z least, slips (*deadline, schedule) 
-- the schedule must be updated to maintain the invariant 
-- The deadline changes are kept to the minimum required to get a feasible 
-- schedule 


OTHERWISE REPLY EXCEPTION no such, approved step 


MESSAGE abandon. step (s: step) 
WHEN step in graph(s,graph) & - (s IN schedule) 
REPLY done 
TRANSITION status = bind (s, abandoned, *status) 
WHEN s IN schedule & status (s) = scheduled 
REPLY (schedule changes (*schedule, schedule)) 
TRANSITION status = bind (s, abandoned, *status) 
-- the schedule must be updated to maintain the invariant 
WHEN s IN schedule & status (s) = assigned 
SEND ("step abandoned", s) TO schedule [s].designer 
REPLY (schedule changes (*schedule, schedule)) 
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TRANSITION status — bind (s, abandoned, *status), 
remove input edges (s, graph) 
-- remove the abandoned step from the schedule and re-assign its designer 


-- remove version bindings of inputs to the step 


OTHERWISE REPLY EXCEPTION no, such, step 


MESSAGE suspend step (s: step) 

WHEN s IN schedule & status (s) 2 scheduled 
REPLY (schedule changes (*schedule, schedule)) 
TRANSITION status = bind (s, approved, *status) 
-- the schedule must be updated to maintain the invariant 

WHEN s IN schedule & status (s) — assigned 
SEND ("step suspended", s) TO schedule (s).designer 
REPLY (schedule. changes (*schedule, schedule)) 
TRANSITION status = bind (s, approved, *status), 

remove_input_edges (s, graph) 

-- the schedule must be updated to maintain the invariant 


OTHERWISE REPLY EXCEPTION no_such_scheduled_step 


MESSAGE commit step (s: step SUCH THAT top_level(s)) 
-- committing a top level step means adding 1ts output components to the configuration 
graph 
-- and releasing the committed version to the public use. 
WHEN status (s) = assigned & 
ALL (sl: step SUCH THAT part_of (sl, s):: status (s1) = completed) 
REPLY done 
TRANSITION status (s) = completed, 


-- The new protoytpe configuration should be created at this point 
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OTHERWISE REPLY EXCEPTION no. such assigned step 


MESSAGE manager. confirmation (s: schedule type) 
REPLY (b: boolean) 
-- b is true if the manager responds positively after being notified of 


-- schedule invalidation (deadline, change). 


CONCEPT manager. notified (s: schedule type) 
VALUE (dc: set (deadline, change ]) 
WHERE ALL(st: step:: st IN dc «-» deadline (st) « estimated finish time(st)) 


CONCEPT deadline, change: type 
WHERE deadline. change = 


tuple (st:: step, deadline (st) estimated finish time (st): time] 


CONCEPT auto, create, substep (s: step) VALUE (ss: set (step]) 
WHERE ALL (st: step, c: component reference :: st IN ss «2» c IN affected modules 


(s) & primary. input(st) 2 c & atomic (st)) 


CONCEPT manager: User. class 

WHERE ALL (m: manager:: uses (m, ECS)) 
-- managers use the ECS 

manages (m, designers) 

manages (m, steps) 


END 
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4. Designer Interface 


The designer interface with ECS enables the designer to view the steps in a given 
prototype with a given status and get the sub-steps assigned to him. This interface also 
enables the designer to create a step or a sub-step of an assigned step, updating any of 
the step attributes, as well as committing the assigned sub-step. 
MACHINE designer interface 

INHERIT common interface 

INHERIT ECS. state model 


MESSAGE commit step (s: step, cc : set (specific component reference) ) 

-- committing an atomic step means storing its output component in the 

-- shared data space, configuring it, and making it visible only to the design team 

WHEN status (s) = assigned & current. time «- scheduled finish. time & 
ALL (o: object:: o IN cc & designer. confirmation (0) & complete (0)) 
REPLY done 
TRANSITION ALL (o: object:: o IN cc:: add, output. edge (s, o, graph), 
status = bind (s, completed, *status) 

WHEN status (s) 2 assigned & current. time «- scheduled finish. time & 
ALL (o: object:: o IN cc & designer. confirmation (0) & ~ complete (0)) 
REPLY (ss: sequence (step]) 

WHERE ALL (o: object SUCH THAT o IN cc & ~complete (0):: 
EXIST (sl: step SUCH THAT s1 IN ss & primary. input (sl) 2 o & 
status (sl) 2 proposed)) 

TRANSITION ALL (o: object:: o IN cc:: add. output. edge (s, o, graph), 
status = bind (s, completed, *status) 

WHEN status (s) 2 assigned & current, time » scheduled finish, time & 
ALL (o: object:: o IN cc & designer. confirmation (o) & complete (0)) 
REPLY (schedule changes (*schedule, schedule)) 

TRANSITION ALL (o: object:: o IN cc:: add, output. edge (s, o, graph), 
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status — bind (s, completed, *status) 
-- schedule must be updated to maintain the invariant 

WHEN status (s) 2 assigned & current. time » scheduled finish time & 
ALL (o: object:: o IN cc & designer. confirmation (0) & ~complete (0)) 
REPLY (schedule changes (*schedule, schedule), ss: sequence (step)) 
WHERE ALL (o: object SUCH THAT o IN cc & ~complete (0) :: 
EXIST (sl: step SUCH THAT s1 IN ss & primary. input (s1) Z0 & 
status (sl) 2 proposed)) 
TRANSITION ALL (o: object:: o IN cc:: add, output. edge (s, o, graph), 
status = bind (s, completed, *status) 
-- Schedule must be updated to maintain the invariant 


OTHERWISE REPLY EXCEPTION no. such. assigned. sub-step 


MESSAGE designer. confirmation (s: schedule, type) 
REPLY (b: boolean) 
-- b is true if the designer responds positively after a warning of schedule 


-- invalidation 


CONCEPT designer: User_class 
WHERE ALL (d: designer:: uses (d, ECS)) 
--designers use the ECS 
ALL (s: step:: SOME (d: designer:: perform (d, s))) 
END 


5. Type Time 


INHERIT equality (date) 
MODEL (day, month, year, hour, minute: nat) 
INVARIANT ALL (d:time:: 1 <= d.day <= 31 £ 1 <=d.month <= 12 8 
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O <= d.year <= 99 8 O <= d.hour <= 23 8 0 <= d.minute <= 59 &d « none) 
MESSAGE create (d m y, h, min: nat) 
WHEN 1 <=d<=31 8 1 <= m <= 12 & 0 <= y <= 99 & 
0 <= h <= 23 & 0 <= min <= 59 
REPLY (d1:time) 
WHERE dl.day - d, d1.month = m, dl.year = y, d1.hour =h, 
dl.minute = min 


OTHERWISE REPLY EXCEPTION illegal_date 


MESSAGE equal (d1 d2:time) 
REPLY (b: boolean) 
WHERE b «-» dl.day 2 d2.day & dl.month 2 d2.month & 
dl.year = d2.year & dl.hour = d2.hour & 
d1.minute = d2.minute 
MESSAGE “<*(d1 d2:time) 
REPLY (b: boolean) 
WHERE b <=> 0 « (d2.year - dl.year) MOD 100 « 50 
| d1.year = d2.year & dl.month « d2.month 
| dl.year 2 dZ.year & dl.month - d2.month & dl.day « d2.day 
| dl.year = d2.year ër dl.month 2 d2.month & d1.day - d2.day & 
d1.hour < d2.hour 
| dl.year 2 d2.year & dl.month - d2.month & dl.day 2 d2.day & 
dl.hour 2 d2.hour & dl.minute « d2.minute 
-- Note 12/31/99 « 01/01/00 
-- « is a total ordering on any time interval less than 50 years long 
-- but it is not transitive on longer intervals 
MESSAGE “<="(d1 d2:time) 
REPLY (b: boolean) 
WHERE b <=> d1 <d2/ dl =d2 
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CONCEPT none: time 
-- constant representing absence of a deadline constraint. 


END 


B. DESIGN DATABASE SCHEMA 


1. Class Step 


step.h sk ok ok ok ale ale ale ale ale ale ale ale ale ale ale ale ade ale ade ade ale ale ale ale ale ale ale ale ade ale ale ae ale ade ale ale ade ade ale ale ale ale ale ale ale ale ale ale ale ole ole ale ale ale ade ale ade ale ale ale ale ale ale 


#ifndef | STEP H 
Kdefine | STEP H 


#include «Object.h» 
#include <Type.h> 
#include <List.h> 
#include <Reference.h> 
#include <stream.h> 


extern "C" 

{ 

tinclude <sys/time.h> 
#include <sys/types.h> 
#include <string.h> 


} 


Kifndef | COMPONENT H 
finclude "component.h" 
#endif 

#include "support, classes.h" 


class COMP REFERENCE:public Object 
( 


private: 
char* priv. name; 
int version, no; 
pele variation no; 
pulla 


COMP REFERENCE(APL *theAPL); 
virtual Type *getDirectType(); 
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COMP REFERENCE(); 


void set priv name(char* name)( 
priv. name-name; 

) 

char* get priv name()( 
return priv name; 


) 


void set version no(int value)( 
version no - value; 


int get version no()( 
return version no; 
void set variation no(int value) { 
variation no - value; 
int get variation no()( 


return variation no; 


void displaycomp() ; 
Dë 


class STEP : public Object 
( 


private 
Int step type; 
int step id; 
TE indicator; 
int in_degree; 
DEDE estimated duration; 
Int EE ey: 
echar” designer; 
int status; 
int required_expertise_level; 
Time deadline; 
Time start_time; 
Time finish_time; 
time_t date_created; 
time_t date_of_current_status; 


Reference base_version; 
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Reference primary input, list; 
Reference secondary input, list; 
Reference output, list; 
Reference affected module list; 
Reference  substep list; 
Reference Dart of: 

Reference preceded by list; 


pulse 


STEP(APL *theAPL) ; 

STEP(char* name, int s_1d); 

virtual void putObject (OC_Boolean 
deallocate=FALSE) ; 

virtual void deleteObject (OC_Boolean 
deallocate=FALSE) ; 

virtual void Destroy(Boolean abort = FALSE); 

virtual Type *getDirectType(); 


int get_step_type() {return step_type;} 
void set_step_type(int type) {step_type =type; } 
void displayStep_id(); 
int get, step. id()( 
return step id; 


) 


dere GNE CU Cer EUER A 
return indicator; 

) 

void set indicator(int type) { 
indicator -type; 

) 


int get in. degree()( 
return in, degree; 

) 

void set in degree(int type)(í 
in degree -type; 


) 


void set estimated duration(int value)( 
estimated duration- value; 

) 

int get estimated duration()( 
return estimated duration; 


) 
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void set _ priority (ine value)( 
Ptc ale 

) 

Ine get priority) 
return priority; 


) 


void set designer(char* a name)( 
designer-a name; 

) 

char* get designer()( 
return designer; 


void set_status(int value) { 
status = value; 

} 

int get_status() { 
return Status; 


void set_required_expertise_level(int value) { 
required_expertise_level=value; 

} 

int get_required_expertise_level () { 
return required_expertise_level; 


void set_deadline(Time value) { 
deadline = value; 

Time get_deadline() { 
return deadline; 

void set_start_time(Time value) { 
Start time = value; 

Time get start time()( 


return start time; 


void set finish time(Time value) ( 
finish, time - value; 
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Time gete fons 
rebut hire 


) 


// set creation time 
time t setCreationDate(); 


// get creation time 
time t getCreationDate()( 
return date created; 


time t EES 
return date of current status; 


void setidate orienta Ruso 
date of current status - 
setCreationDate(); 


// get a list of primary input. 
List* primary*imput()t 
return (List*) 
primary_input_ list. Binding (Ene 


// reset a list of primary input 
void primary input( List* parts) { 
primary. input, list.Reset(parts, this); 


// get a list of secondary. input. 
List* secondaryeinpue ) { 
return (List*) 
secondary_input_list.Binding(this) ; 


// reset a list of secondary input 
void secondary_input( List* parts) { 
secondary input list.Reset(parts, this); 


// get a list of output 
List output 
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Eé 


hæf. 


T 


Ur 


"n 


Kë 


£y 


Hnepurne bist outbubeeLyst.Brnding(this); 


reset a list of output 
void output( List* parts) ( 
output_list.Reset(parts, this); 


get a list of affected_modules 
List* affected_module() { 
return (List*) 


affected module list.Binding(this); 


reset a list of affected modules 
void affected module( List* parts) { 
affected module list.Reset(parts, this); 


get a list of substeps 
List* substep() { 
return (List*) 
substep list.Binding(this); 


reset a list of substeps 
void substep( List* parts) ( 
substep_list.Reset (parts, this); 


get a list of preceded_by 
List* preceded_by () { 
return (List*) 
preceded by list.Binding(tnhis); 


reset a list of preceded by 
void preceded by( List* parts) ( 
preceded by list.Reset(parts, this); 


void set parent, step(STEP* otherstep) { 


) 


part of.Reset(otherstep,this) ; 
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E 


#endif 


void 


} 


COMPT 


vo ld 
vord 


set base version(COMP REFERENCE* my comp)( 
base version.Reset (my. comp,this); 


REFERENCE* get base version(); 
add, substep(STEP* my step); 
add, predecessor(STEP* my step); 


//void add. successor(STEP* my step); 


void 
void 
Vod 
void 
void 
vVord 


void 
void 
void 
void 
void 
void 
void 


add primary input(COMP REFERENCE* my. comp); 
delete primary input(char* comp name); 

add, secondary input (COMP REFERENCE* my comp); 
delete secondary input(char* comp name); 

add output (COMPONENT* my comp); 

add affected modules (COMP REFERENCE* 

Iny cO UE 
delete affected modules(char* comp name); 
show primary. input(); 
show secondary. input(); 
show affected modules(); 
show output(); 
show substeps(); 
show. preceding steps(); 


STEP* get parent step(); 


EE 


step CXX A al al ade al ale al ale ale ale ade ale ale ade ade ade al al ade al ale ale al ale ade ale ade ale ale ale ade ale ade ale ale al ae ade al al ade al ade ade al a ad ale al ale 3k ale ale al ade ale ale ale al ale ale ale ale K 


#ifndef _ DDBDEFINES_H 


#include 
#endif 


#include 
#include 
include 
#include 
#include 


extern 


{ 


Kinclude 
include 
#include 
#include 


n H 


Char 


"ddbdefines.h" 


<Type.h> 
«Object.h» 


<GlobalEntrttes.n> 
<Database.h> 
<Directory .h> 


*getenv (const char *); 


<strings.h> 
<ctype.h> 

<stddef .h> 
«strmeen- 
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) 


#ifndef | COMPONENT H 
#include "component.h" 
#endif 


#ifndef _ STEP_H 
#include "step.h" 
#endif 


STEP: :STEP(APL *theAPL) :Object (theAPL), 
deadline((APL*)0),start time((APL*)0),finish time((APL*)0) 
( 

) 


STEP: :STEP(char* name, int s id): 
Object (name) ,deadline(0,0,0,0,0), start_time(0,0,0,0,0), 
Amish time(0,0,0,0,0) 
( 
initDirectType ( (Type*)OC,. lookup("STEP")); 
step type - 0; 
indicator DE 
in degree - 0; 
step id - s id; 
estimated duration - 0; 
Priority = O 
designer -(char*)0; 
statús.= "0 
required expertise level - 0; 
date created - setCreationDate(); 
date. of, current status - 0; 
base version.initToNull(); 
Dart Of. Init TONUL): 
primary input list.Init(new 


Dist (Epe OC lookup ("COMP REFERENCE")),this);: 
secondary_input_list.Init (new 

List ( (Type*) OC_lookup ("COMP_REFERENCE")),this) ; 
output_list.Init (new 

List ( (Type*) OC_lookup ("COMPONENT") ),this) ; 
affected_module_list.Init (new 

List ( (Type*) OC_lookup ("COMP_REFERENCE")),this); 


substep_list.Init (new 
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List ( (Type*)OC_lookup ("STEP") ), this) ; 

preceded_by_list.Init (new 

List ( (Tyvpe*)0C_lookup ("STEP"). LAS) 
) 


Type *STEP::getDirectType() 
( 

return (Type*) OG lookup (ASTERI 
} 


void STEP::putObject(OC Boolean deallocate) 
( 
//saves structure of the component lists 
( (List*)primary_input™"list.Binding (thi Deis 
ALSE); 
hist'*)secondary imputelisteBinding (this 
ALSE); 
List*)output list.Binding(this))- 


>putObject (F 

( ( 

(F 

( ( 
>putObject (FALSE) ; 

( ( 

(F 

( ( 

(F 

( ( 


>putOobject 


List*)affected module list.Binding(this))- 
ALSE); 
List*)substep list.Binding(this))- 
ALSE); 
List*)preceded by list.Binding(this))- 
>putObject (FALSE) ; 

// ((List*)successor. list.Binding(this))- 
>putObject (FALSE) ; 

// saves the component itself 


>putObject 


>putObject 


Object: 


putObject (deallocate) ; 
} 


void STEP::deleteObject(OC Boolean deallocate) 
{ 

//deletes structure of the component lists 

((List*)primary_input_ list Binding (&hisiees 

>deleteObject (deallocate) ; 

((List*)secondary input list.Binding(this))- 
>deleteObject (deallocate) ; 

( (LisSt* "out puterrst. Banding (thas e 
>deleteObject (deallocate) ; 

((List*)affected module list.Binding(this))- 
>deleteObject (deallocate) ; 

((List*)substep list.Binding(this))- 
>deleteObject (deallocate) ; 
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((List*)preceded by list.Binding(this))- 
»deleteObject (deallocate); 

// ((Lbist*)successor list.Binding(this))- 
»deleteObject (deallocate); 

// deletes the component itself 
Object: 


deleteObject (deallocate) ; 
} 


void STEP: :Destroy (Boolean aborted) 

( 
Bitty ent; 
enti = primary Inpùt: list Binding (this) ; 
delete ent; 
ent - secondary. input, list.Binding (this); 
delete ent; 
ent =- Output list.Binding(this)?); 
delete ent; 
ent = affected_module_list.Binding (this); 
delete ent; 
ent = substep_list.Binding(this) ; 
delete ent; 
ent = preceded_by_list.Binding(this) ; 
delete ent; 
// ent = successor_list.Binding(this) ; 
delete ent; 
if (aborted) Object: 


Destroy (aborted); 
} 


// set creation time 
time t STEP::setCreationDate() 
( 
time t *mytloc =0; 
time t theTime; 
return theTime - time(mytloc); 


} 
void STEP: :add_substep(STEP* otherstep) 
{ 

List *child_nodes = (List 
*)substep_list.Binding(this) ; 


if ('this)} 
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( 


cout << "<ERROR: cannot add a substep to a null 


step\n"; 
return; 
} 
if (!child. nodes) 
( 
cout << "<ERROR: cannot add a null substep to a 
step\n"; 


return; 


} 


child_nodes->Insert (otherstep) ; 
child nodes-»putObject(); 
putObject () ; 

) 


void STEP: :add_predecessor (STEP* otherstep) 
( 


List *the nodes = (List 
*)preceded by list.Binding(this); 


if pein s) 
{ 


cout «« "«ERROR: cannot add a substep to a null step 


Va; 
return; 
} 
if (!the. nodes) 
( 
cout «« "«ERROR: cannot add a null substep to a 
step\n"; 


return; 
} 
this->set_in_degree(this->get_in_degree()+1); 
the nodes-»Insert (otherstep); 
the nodes-»putObject(); 
putObject () ; 


void STEP::add primary input(COMP REFERENCE* my comp) 
( 


List *the_nodes = (List 
*)primary1inputrlisto Blanca bs e 
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EDIS) 
( 
COUE << <ERROR: cannot add a 
COMP REFERENCE to a null step\n"; 
return; 
} 
if (!the_nodes) 
{ 
cout <A W!SERROR cannot add a null 
COMP_REFERENCE to a stepin"; 
return: 


the nodes-»Insert (my comp); 
the nodes-»putObject(); 
p putObject(); 


) 


void STEP::add secondary input(COMP REFERENCE* my comp) 
( 

List *the nodes - (List 
*)secondary., input, list.Binding (this); 


if (renis) 
{ 
cout «« "«ERROR: cannot add a 
COMP REFERENCE to a null stepin"; 
return; 
) 
if (!the nodes) 
( 
cout «« "«ERROR: cannot add a null 
COMP REFERENCE to a stepin"; 
return; 


} 


the nodes-»Insert (my. comp); 
the nodes-»putObject(); 
7 DUEODIe crei 

} 


vold STEP: :add_output (COMPONENT* my_comp) 


{ 
List *the_nodes = (List 
Bout putc. list .Binding(this) : 
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if d thm S) 
( 
cout «« "«ERROR: cannot add a COMPONENT 
to a null step\n"; 
return; 
) 
if (!the nodes) 
{ 
cout << "<ERROR: cannot add a mum 
COMPONENT to a "step mor 
return; 


) 


the nodes-»Insert (my comp); 
the nodes-»putObject(); 
PAP) putObject (); 

} 


void STEP: :add_affected_modules (COMP_REFERENCE* my_comp) 
{ 

List *the_nodes = (List 
*)affected_module_list.Binding(this) ; 


te (the) 
{ 
COU << A ERROR Tcannot adda 
COMP REFERENCE to a null step'Wn"; 
return; 
) 
if (!the nodes) 
( 
cout «« "«ERROR: cannot add a null 
COMP REFERENCE to a stepMn"; 
return; 


) 


the nodes-»Insert (my. comp) ; 
the nodes-»putObject(); 
Dan putobjec tii 

) 


void STEP::delete primary input(char* my comp) 
( 

OC Boolean FOUND-FALSE; 

List my list = 
(List*)primary Input EE 


In 2 





ListlIterator my iterator(my list); 
COMP REFERENCE *the comp; 
while(my iterator.moreData()&& !FOUND) 
( 
Ene comp = 
(COMP REFERENCE*) (Entity*)my iterator(); 
if(strcmp(the comp -»get priv name(), 


mcomp)--0)1( 
my list-»Remove (my list- 


»Index(the comp)); 
FOUND = TRUE: 


} 


void STEP::delete secondary input(char* my comp) 
( 
OC Boolean FOUND-FALSE; 
List mw list =: 
(List*)secondary input list.Binding(this); 
ListIterator my iterator(my list); 
COMP REFERENCE *the comp; 
while(my iterator.moreData()&& !FOUND) 
( 
the comp - 
(COMP REFERENCE*) (Entity*)my iterator(); 
if(strcmp(the comp -»get priv name(), 
my comp)--0)( 
my list-»Remove (my list- 
-Index(the comp)); 
BOUND TRUE 


void STEP::delete affected modules(char* my. comp) 
( 
OC Boolean FOUND-FALSE; 
List “my list = 
(List*)affected module list.Binding(this); 
ListlIterator my iterator (my list); 
COMP REFERENCE *the comp; 
while(my iterator.moreData()&& !FOUND) 
( 


the comp - 
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) 


(COMP REFERENCE*)(Entity*)my iterato 
if(strcmp(the, comp -»get priv name(), 
Hee ek 
mm list-»Remove (my list- 
»Index(the comp)); 
FEOUND=SATRUE >; 


COMP REFERENCE* STEP::get base version() 


( 


return 


(COMP REFERENCE*)base, version.Binding(this); 


) 


STEP* STEP::get. parent, step() 


( 


) 


vold STEP: 
( 


void STEP: 
( 


return (STEP*)part_of.Binding (CAID 


: Show. primary. input() 


List -my list -> 
(List*)primary input “ese binding (tars) 
ListIterator my_iterator(my_list); 
COMP_REFERENCE *the_comp; 

// cout<< "Primary ?Wnputs: ; 


while(my iterator.moreData()) 

( 
the comp - 
(COMP REFERENCE*)(Entity*)my ES E 
the comp -> displaycomp() ; 


:show. secondary input() 


List tm sista 
(List*)secondary. input list.Binding(this); 
ListlIterator my iterator(my list); 

COMP REFERENCE *the. comp; 

// eGcout-a< my list ->Cardinalty( M ui 
while(my iterator.moreData()) 
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Ehe comp = 
(COMP_REFERENCE*) (Entity*)my_iterator(); 
the comp -» displaycomp(); 


) 


void STEP::show affected modules() 
( 
List mili 
(List*)affected module list.Binding(this); 
ListIterator my iterator (my list); 
COMP REFERENCE *the comp; 
M cout mw mse --Cardinality() <<"\n"; 
while(my iterator.moreData()) 
( 
the comp = 
(COMP REFERENCE*) (Entity*)my iterator(); 
the comp -» displaycomp(); 


) 


void STEP::show output() 
( 
hist AS St output last. .Bineding(this):; 
ListIterator my iterator (my list); 
COMPONENT *the comp; 
// cout<< "\nstep outputs: E 


while(my. iterator.moreData()) 

( 
the comp = 
(COMPONENT*) (Entity*)my iterator(); 
cout ««the, comp -»CompnentName(); 


) 


void STEP::show substeps() 
( 
lc als 2 Bist*)substep_l1st.Binding(this); 
ListIterator my iterator(my list); 
STEP *the step; 
"ANE Ogt-memlISEb -Carbdasmalatvi() 2<"\n": 
while(my iterator.moreData()) 
( 
the step - 


IU 


(STEP*) (Entity Im iterate M 
the_step-> displayStep_id(); 
} 


void STEP: :show_preceding_steps () 
{ 
List Im als 
(List*)preceded by list.Binding(this); 
ListIterator my iterator(my list); 
STEP *the step; 
// cout<< "\nstep predecessors: ioe 
int 1=0; 
/|/- cout«« mp yst--Cardrmalustyw-e- <<An 
while(my iterator.moreData()) 
( 
d cM NEM 
the step - 
(STEP*) (Entity m iterator, 
cout ««the step-» get step id(); 
if (i« my list-»Cardinalityvy()) 
Colb «ct. 9 


void STEP::displayStep. id() 
( 


cout << step Idzu UP 


) 


COMP, REFERENCE: :COMP REFERENCE(APL *theAPL):Object (theAPL) 
( 
) 


COMP. REFERENCE : :COMP. REFERENCE() 
{ 


initDirectType((Type*)OC lookup("COMP REFERENCE")); 
priv name-(char*)0; 


version. no-0; 
variation, no-0; 


Type* COMP REFERENCE::getDirectType() 
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( 
RSU ne OA loo kun COMB-=REEERENCE"); 


) 
moma COMP REFERENCE: :displaycomp() 
{ 

cout <<priv_name <<"\n"; 
} 


step Operations h KKK K K K K K ale a a ade ale ale ade ale ale ade ale ale ale ale ae ade ale ade ale ale ale K K K k K k K K ale al ale ade de ole ole K K K K K K K K K K K 


Híndef STEP OPERATIONS H 
4define | STEP OPERATIONS H 


Hinclude “component.h” 
include “step.h” 
Hinclude “support_classes.h” 


#include “text_object.h”’ 


char* get_red_of_extension(char* comp_name); 

void create_step(char* dbname,char* protoname, char* comp_name); 
void show_step(char* dbname, int step id); 

void show_steps(char* dbname,char* aName); 

void Add_primary_input(int step_id,char* comp. name); 

void Delete_primary_input(int step_id,char* comp_name); 
void Add_secondary_input(int step_id,char* comp_name); 
void Delete_secondary_input(int step_id,char* comp_name); 
void Add_affected_modules(int step_id,char* comp_name); 
void Delete affected modules(int step_id,char* comp_name); 
void Update. precedence(int step. id,int preceding, step. 1d); 
void Update priority(int step id,int value); 

void Update expertise level(int step. id,int value); 

void Update deadline(int step. id,char* theDate); 


void Update estimated duration(int step. id,int value); 
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void Update, start time(char* dbname,int step, id,char* theDate); 
void Update, finish. time(char* dbname,int step. id,char* theDate); 
void Update, status(char* dbname,int step id,int value); 
void Update designer(char* dbname,int step id,char* aName); 
void get. scheduling. data(char* dbname, int step. id, char* curr. time); 
void get Sched data l(char *dbname,char* listName,char* cur time,char* 
d name); 
void get scheduling data, 2(char* dbname, char* curr. time, char* d, name); 
void get commit data(char* dbname, int step id); 
void set secondary. input(STEP* a, step,char* compPath); 
void set, affected modules(S TEP* a step, char* protoName,char* comp name); 
void create, substep(char* dbname,int step id,char* p. input, 
char* d. name,char* theDate, int duration); 

STEP* create substep(STEP* the step, char* p. input); 
void auto, create, substeps(char* dbname,int step id); 
void commit, step(char* dbname,int step id); 
void commit, substep(char* dbname,int step. id); 
void remove, step from schedule(char* dbname,char* step. id,char* myDate); 
void remove. step. from, sched(int step id); 
void Update Step(char* dbname,int step. id,char* theDate, 

char* p inputA, char* p inputD, 

char* s inputA, char* s inputD, 

char* a, inputA, char* a, inputD, 

int pri, value, int prec, vlaue, 

int dur. vlaue, int exp levvel); 
void step. update(int step. id,char* theDate, 

char* p inputA, char* p inputD, 

char* s inputA, char* s inputD, 


char* a_inputA, char* a_inputD, 
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int pri value, int prec. vlaue, 


int dur vlaue, int exp. level); 


void save, step old values(STEP* a step); 


void Undo. step. update(char* dbname,int step. 1d); 


void dump. step components(char* dbname, int step. id); 


void find, assigned, step(char* dbname, char* user); 


void suspend, abandon, step(char* dbname,int step id, int new. status); 


void update base versions(int step. id,char* templ); 


void Update. deadline(char* dbname,int step. id); 


void Early_warning(char* dbname, char* myTime); 


#endif //_ STEP OPERATIONS H 


step Operations CXX Ak ak ak ae ale ale ale ale ade ale ale ade ale ale ale ade ade ale ale ale ade ale ade ade ale ale ale ade ale ale ale ade ale ale ade ale ale ale ade ade ale ale ale ade ale ale ade ale ale ade ale ole ak Ke 


tinclude <Database.h> 
include <Directory.h> 
#include <string.h> 
#include <Set.h> 

#include <stdlib.h> 

Aoede "My String.h" 
include "component.nh" 
tinclude "step.h" 

tinclude "support_classes.h" 
#include "text_object.h" 
tinclude "comp_Operations.h" 
tinclude "step_Operations.h" 
tinclude "sched.h" 

tinclude "schedOp.h" 
tinclude "person.h" 

dente Char *Level[3] = {"Low", "Medium", "High"); 


static char *Status[6] = 


{ "proposed", "approved", "scheduled", "assigned", "completed", "a 
bandoned"}; 


extern char *thepath; 
extern int warning time; 
extern char *dirNamePtr; 
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extern char *DESIGN, DATABASE, DIRECTORY; 


char* get red. of extension(char* comp. name) 
( 
char my. word[128]; 
char- *worPdTq93e 
char* separator=".1; 
word[0]=strtok(comp_name, separator) ; 
AO 
while(word[i] != NULL) { 
1=1+1; 
word[i]=strtok(NULL, separator) ; 
} 
inte — 1-57 
1f (k==0)° return wore ele 


else{ 
PE a= et 
sprintf (my_word, "%s%s%s",word[0],".",word[1]) ; 
return my_word; 
} 
else { 

IZ 
sprintf (my_word, "%s%s%s%s%s",word[(0],".",word[1],".",word[2] 
jur 

return my word; 

) 

else( 
sprintf (my_word, "%s%s%s%s%s%s%s",word[0],".",word[1], 

".",word(2)>7".",wordieina 
return my_word; 
} 
} 
} 
} 
STEP* find_step(int step. id) 
{ 
OC_Boolean FOUND=FALSE; 
Set *aSet - (Set *)OC lookup("step set"); 


// Abort if there is no set 

lf ( aSet == NULL ) ( 
cout << "there is no steps in database yet.\n"; 
return NULL; 
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// cout «« aSet-»Name() «« " has " «« aSet-»Cardinality() «« 
items. Iinin"; 


// Ask the set object for an iterator 
Iterator* anIterator - aSet-»getIterator(); 
STEP* the step; 
// For each item in the iterator 
while(anIterator->moreData()&& !FOUND) { 
// Get the item 
the step=(STEP*) (Entity *) (aniterator-soperator()()) ; 
if (the_step->get_step_id()==step_id) 
FOUND = TRUE; 
} 
if (FOUND) 
return the step; 
else 
return NULL; 


void find, assigned step(char* dbname, char* user) 
( 
OC_open (dbname) ; 
OC transactionStart(); 
OC Boolean FOUND = FALSE; 
Set *aSet - (Set *)OC lookup("step. set"); 
Iterator* anIterator = aSet->getIterator(); 
STEP* the_step; 
// For each item in the iterator 
while(anIterator->moreData() && !FOUND) { 
the_step=(STEP*) (Entity *) (anIterator->operator() ()); 
if (the_step->get_designer() !=0) { 
char* salah= new char[strlen(the_step->get_designer())+1]; 
strcpy(salah,the step-»get designer()); 
1f(strcmp(salah,user)==0 && the step-»get status()zs-3 && 
the step-»get indicator()--20)( 
POUND = TRUE, 
char my name[160] ; 
sprintf (my_name, "%s%s%d",".","step_",the_step- 
>get_step_id()); 
contr == "P" << "Nn"; 
cout << my_name << "An"; 
cout << the_step->get_step_1d() << "An"; 


) 
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) 
) 
Yf ( | FOUND) COUT Eet 
OC transactionCommit(); 
OC. close(); 
) 


void dump step components(char* dbname,int step id) 
( 
OC_open (dbname) ; 
OC transactionStart(); 
char my, name[8] ; 
char protoname[64]; 
STEP* the step- find step(í(step id); 
sprintf (my name,"£d",the step-»get step id()); 
My String 
tempzMy String(".")«My String("step ")-«My String(my name); 
dirNamePtr -(char*) temp; 
COMP REFERENCE* my comp- the step-»get base version(); 
char *temp22my. comp-»get priv. name(); 
int varzmy comp-»get variation, no(); 
int verzmy. comp-»get version no(); 
sprintf (protoname, "%s %d:%3d", temp2,var, ver); 


List *my list-the step-»primary. input(); 

COMP. REFERENCE* my ref -(COMP. REFERENCE* ) my. list- 
>getEntityElement (0); 

char* check = my_ref->get_priv_name()+strlen(my_ref- 
>get_priv_name())-10; 


if (strcmp (check, "spec psali ) —— vr, 
My String temp-My String (my. ref-»get priv. name())-10; 
char* comp name -z(char*) temp; 


DumpComponent (protoname, comp. name); 
) 
else{ 
My_String temp=My_String(my_ref->get_priv_name())-9; 
char* comp_name =(char*) temp; 
DumpComponent (protoname, comp_name) ; 
List *my list-the step-»secondary. input(); 
ListIterator my iterator(my list); 
while(my iterator.moreData()) 
{ 
COMP_REFERENCE* 
my comp- (COMP. REFERENCE*) (Entity*)my iterator(); 
My String temp-zMy String (my comp-»get priv. name())- 
LOs 
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char comp name =(cChar*) temp; 
Dump Spec, Filel(protoname,comp. name); 
} 
} 
the step-»set indicator(1); 
the step-»putObject(); 
OC transactionCommit (); 
OC. close(); 
) 


void Farly_warning(char* dbname, char* myTime) 
{ 

OC_open (dbname) ; 

OC transactionStart(); 


ny id; 

Time T1(myTime); 

List *aList - (List *)OC lookup("MySchedule"); 
if(aList  !- NULL) ( 


Iterator* my iterator - aList-»getIterator(); 
// For each item in the iterator 
while(my iterator-»moreData()) ( 
Schedule* nextAssignment - (Schedule*) 
En EV*)((*my iterator)()); 
if( nextAssignment--AssignmentFinish()- T1 «- 
warning time) 


( 


sscanf(nextAssignment-»Name(),"d", &my id); 

STEP* the. step-find step(my. id); 

if(the step-»get status()-- 3 && the step- 
Aer tindicator() != 2) 


( 
cout «« the step-»get step id()«« "Mn"; 
cout «« the step-»get designer() «« "Mn"; 
the_step->set_indicator (2); 
the_step->putObject (); 
} 
} 
} 
} 
OC, transactionCommit(); 
OC, close(); 
) 


void show step(char* dbname, int step id) 


( 
OC, open (dbname) ; 
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OC transactionStart(); 
STEP* the stepsfind step(step id) ; 
if (the step != NULL) { 
COMP_REFERENCE* my_comp = the_step- 
>get_base_version(); 
cout <<my_comp->get_priv_name() <<" " 
«« my comp-»get variation, no() 


<<" " «« my comp-»get version no() «UE 
CONE <<the_step->get_estimated_duration() <<"\n"; 
Cou <<the_step->get_priority() << "in": 
Gem ««Level[the step -> 
get required expertise level ()] 
O 
Sot <<Status Í[the_step->get_status()]<< "in"; 


Cout <<the_step->get_designer() << "\n"; 
cout <<the_step->get_deadline() .makeString() << "\n"; 

COUE <<the_step->get_start_time().makeString() << 
© \ Dee 

cout <<the_step->get_finish_time().makeString() << 
NTs 

the_step->show_primary_input () ; 

List* my, list-the, step-»secondary. input(); 

GE «« my list-»Cardinalatyagame- "ns 

the step-»show secondary input(); 

my list-the step-»-affected module(); 

Cout << my_list->Cardinality() v2.5" \nw 

the step-»show affected modules(); 

my list-the step-»substep(); 

int n = my list->Cardinality (l; 

cout << my_list--Cardinality I mE 

the_step->show_substeps(); 

my list-the step-»preceded by(); 


Tres“ (n== 0) 

cout <<my_list-sCandinality Or. ae, 

else 

cout << “\n" <<my_list->Cardinality() << "MOE 
the_step->show_preceding_steps(); 

COLA << WA GE 


) 
OC, transactionCommit(); 
OC close(í); 
) 


void get commit data(char* dbname, int step id) 
( 
OC_open (dbname) ; 
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) 


cent ransactilóonstart ll); 

STEP* the step-find step(step id); 

if(the step != NULL) { 

the step-»get base version()-»displaycomp(); 
the step-»-show primary input(); 

the step-»show output(); 

) 


OC transactionCommit(); 
OC. close(); 


void get scheduling. data 2(char* dbname, char* 
curr time,char* d name) 


( 


OC_open (dbname) ; 
OC transactionStart(); 
we my 1d; 
mme Tl (curr time); 
mme T(0,0,0, 070); 
Must *alist = (List *)OC_lookup("MySchedule") ; 
mEabist Lol A 
Iterator* my iterator - aList-»getIterator(); 
// For each item in the iterator 
while(my iterator-»moreData()) { 
Schedule* nextAssignment - (Schedule*) 


femeaty~) ( (*my_i1terator) (%); 


sscanf(nextAssignment-»Name(),"d", &my id); 
STEP* the step-zfind,. step (my. id); 
1f(the_step->get_status()==2 || 
(Che step-»get status()-2-3 && 


strcmp (the_step->get_designer(),d_name)==0))( 


cout «« the step-»get step id()«« "Mn"; 
int T2- the step-»get deadline() - T1; 
ATADOS 

COL c M T N; 

else 

COUL "NIU 

cout ««the step-»get priority() «« "Mn"; 
cout ««the step-»get estimated duration() ««"Mn"; 
COUE <<"{"; 
the_step->show_preceding_steps(); 
Got TM 

cout ««Level[the step- 


»get required expertise level()]«« "Mn"; 


cout «« the step-»get in degree() «« "Mn"; 


) 
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} 
} 


OC, transactionCommit(); 


OC close 
} 


void get_scheduling_data(char* dbname, int step_id, char* 


curr time) 


( 


OC_open (dbname) ; 
OC. transactionStart(); 


int maid., 


Time “TIM curr Pinel, 
Time TOO ODO 


List *aList = 


(List *)OC. lookup("MySchedule"); 


asi UNUS 

Iterator* my iterator - aList-»getIterator(); 

// For each item in the iterator 

while(my iterator-»moreData()) { 

Schedule* nextAssignment - (Schedule*) 

(Entity*) @@my_1iterator err 
sscanf(nextAssignment-»Name(),"£d", &my id); 
STEP* the step-find, step (my. id); 
if (the_step->get_status() ==2) { 


cout 


«« the step-»get. step id()«« "Mn"; 


int T2- the step-»get deadline() - T1; 
lf (25 00 


cout 
else 
COUE 
cont 
cout 
Cout 


« «tau 0 Qu << "grypte 


««T2 «-— me 

««the step-»get priority() «« "Mn"; 

««the step-»get estimated duration() ««"Mn"; 
ee S 


the_step->show_preceding_steps(); 


cout 
Cout 


ee Hai Nes 
<<Level [the_step- 


>get_required_expertise_level()] 


COUE 


aL bom 
«« the step-»get. in degree() «« "Mn"; 
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STEP* a step-find step(step id); 
1f(a_step != NULL) { 
if(a_step->get_status() != 1 || a _step->get_step_type() 
p 0) 
cout «« "Cannot schedule None approved step or part 
Of a top step" «« "Mn"; 
elsel 
List* my list-a step-»substep(); 
ListlIterator my. iterator(my list); 
STEP *the step; 
while(my_iterator.moreData() ) 


{ 


the step - (STEP*) (Entity*)my_iterator(); 
cout «« the, step-»get step id()«« "Mn"; 
int T2- the step-»get deadline() - T1; 
IIE T2 < 0) 
omms DONE "NO 
else 


COWt. -<<T2 = "\n"; 
cout <<the_step->get_priority() << "\n"; 
cout <<the_step->get_estimated_duration() <<"\n"; 
(o M c us 
the step-»show preceding steps(); 
coUe ctp WEBS 
cout ««Level[the. step- 
»get required, expertise level()] 
cone 
cout << the_step->get_in_degree() << "\n"; 


} 
) 
OC, transactionCommit(); 
OC. close(); 


) 


void get, Sched data l(char *dbname,char* listName, char* 
cur time,char* d. name) 
( 

OC_open (dbname) ; 

OC transactionStart(); 


E ny id; 
Hist *aList = (List *)OC lookup(listName); 
Du3hist == NULL) { 

"A cout No such Schedule ...WMn*; 


OC transactionCommit(); 
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OC close(); 
IDEM 


} 
Time Tl(cur.time); 


Iterator* anIterator = aList->getIterator(); 


// For each item in the iterator 


while (anIterator->moreData()) { 
Schedule* nextAssignment = (Schedule*) 
(Entity*) ((*anIterator) ()); 
sscanf(nextAssignment-»Name(),"£d", Em id); 
STEP* the, step-find, step (my. id); 
if (the step-»get, status()-z-3 && strcmp( 
the step-»get designer(),d name) !=0) { 


cout << nextAssignment->Name() <<"\n"; 
int T3=nextAssignment-> AssignmentFinish()-T1; 
EQUÉ «L3 cc T 
cout << nextAssignment->AssignedDesigner() << "In"; 
} 
} 

delete anIterator; 

OC transactionCommit(); 

OC close(); 


void remove step from schedule(char* dbname,char* 
step id,char* myDate) 
( 

OC_open (dbname) ; 

OC, transactionStart(); 

deleteAssignmentl("MySchedule", step id); 

Time T(myDate); 

int my step id, an. id; 

sscanf (step, id," ""$d",&an id); 

STEP* the step-find,step(an id); 

char* dname-the step-»get designer(); 

Person* aPerson-(Person*)OC. lookup(dname); 

if(aPerson !- NULL)( 

aPerson-»PersonStatus(0); 

aPerson->putObject (); 

} 

the step-»set finish, time(T); 

the step-»putObgect(); 

Time T2 - the step-»get start time()-«the step- 
-get estimated duration(); 
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1£((T2 - T) ==0) 
Sato << "N" <<"\n"; 
else 

Sout, <<"R”Y <<"\n"; 


[fect “alist = (List *)OC_lookup("MySchedule") ; 
1f(aList == NULL) { 
e cout << “No Such Schedule ...\n"; 
OC transactionCommit(); 
Semclose() ; 
return; 


) 


Iterator* anIterator - aList-»getIterator(); 
// For each item in the iterator 


while(anlIterator-»moreData()) { 
Schedule* nextAssignment - (Schedule*) 
EEDEYEy*)((*anIterator)()); 
sscanf(nextAssignment-»Name(),"£d", &my step id); 
STEP* my step-find step(my step id); 
1f(my_step != NULL) { 


List* my_list = my_step->preceded_by(); 
Iterator* my Iterator - my list-»getIterator(); 
while(my_Iterator->moreData()) { 
STEP Step= (STEP*I(ENC1EY* (my Iterator)()); 
if (a_step->get_step_id()== an_id) 
mIy step-»set in degree(my step-»get in, degree()- 
JL 
my step-»putObgject(); 
) 
) 
if (my step-»get in, degree()-2-0)( 
if(strcmp(dname,nextAssignment- 
>AssignedDesigner())==0) { 
cout << my_step->get_step_id() <<"\n"; 
cout << dname <<"\n"; 
} 
else{ 
Person* aPerson=(Person*)0C_lookup ( 
nextAssignment-»-AssignedDesigner()); 
1f(aPerson != NULL) { 
if(aPerson-»PersonStatus() )t 
cout «« my step-»get step “ia 
cout << nextAssignment- 
>AssignedDesigner()<<"\n"; 


} 


Gea eh 
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) 
) 
OC transactionCommit(); 
OC close(); 
) 


void remove. step from sched(int step id) 
( 
char my. id[8]; 
sprantt(mycid s semp CE 
int my step id; 
deleteAssignmentl("MySchedule", my id); 
STEP* the step-find step(step id); 
1f (the_step != NULL) { 
char* dname=the_step->get_designer(); 


if (the_step->get_status() == 3) { 
Person* aPerson=(Person*)0C_lookup (dname) ; 
1f(aPerson != NULL) { 


aPerson->PersonStatus (0); 
aPerson-»putObject(); 
cout <= Step ida c m 
cout << dname << "\n"; 
} 

} 


List *aList - (List *)OC. ookup("MySchedule"); 
iflaList == NULL) { 

Ves cout <= A No Such Schedules ni 
return; 


) 
Iterator* anIterator = aList->getIterator(); 
// For each item in the iterator 


while(anIterator->moreData()) { 
Schedule* nextAssignment = (Schedule*) 
(Entity*)((*anIterator)()); 
sscanf(nextAssignment-»-Name(),"$d", &my step id); 


STEP* my step-find step(my. step id); 

lf (my*stepeeeNUMSLJ) 
List* my list - my step-»preceded by(); 
Iterator* my Iterator - my list-»getIterator(); 


while(my Iterator-»moreData()) ( 
STEP* a_step=(STEP”) (Entity*) ((*my_Iterator) (ae 
if (a_step->get_step_id()== step_id) 


my_step->set_in_degree (my_step->get_in_degree()- 
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TEE 
my_step->putObject (); 
) 


void suspend abandon, step(char* dbname,int step id, int 
new status) 
( 

OC_open (dbname) ; 

OC transactionStart(); 

Mime T(0,0,0,0,0); 

STEP* my step-find step(step. id); 


1f(my_step != NULL) { 
1f(my_step->get_status() <= 1) { 
1f (my_step->get_step_type()==0) { 


List* my list-my step-»substep(); 
ListIterator my iterator(my list); 
while (my iterator.moreData())( 
STEP* a_step=(STEP*) (Entity*)my_iterator(); 
a_step->set_status (new_status) ; 
a_step->putObject () ; 
} 
} 
mm step-»set, status (new status); 
my step-»putObject(); 


) 
else 
lf (my step-»get, status() z- || riy step-»get. status() 
3). 
if (my step-»get. step type()-220)( 


List* my list-my step-»substep(); 
ListlIterator my iterator(my list); 
while(my iterator.moreData())( 
STEP* a, step- (STEP*) (Entity*)my. iterator(); 
remove step from sched(a, step- 
-get step id()); 
a Step-»set statusí(new status); 
a Step-»set start time(T); 
List* a list-a step-»preceded by(); 
a step-»set in, degree(a list-»Cardinality()); 
a Step-»putObject(); 
) 
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my step--sertestatus mew s cacucpi 
my_step->set_start_time(T); 
my_step->putObject(); 
) 
else{ 
remove step from sched(step id); 
my step-»set status(í(new status); 
my step-»putObject(); 
) 
) 
) 
OC_transactionCommit (); 
OC. close(); 


void show steps(char* dbname,char* aName) 
( 
OC. open (dbname) ; 
OC_transactionStart (); 
Set *aSet - (Set *)OC lookup("step set"); 


// Aport if there iS Se 


if ( aSet == NULL ) { 
cout << "there is no steps in database yet.\n"; 
return; 


} 


cout «« aSet-»Name() «« " has " «« aSet-»Cardinality() «« " 
items. MnMn"; 


// Ask the set object for an iterator 
Iterator* anlterator = aSet->getIterator(); 


// For each item inwshewmterator 
while(anIterator-»moreData()) ( 


// Get the item 
STEP* the step-(STEP*) (Entity *)(anIterator- 
>operatom()@)) ; 
// Print out its name and value 
if (strcmp (aName, "all") ==0) 
cout << the_step->get_step_id() << ", Status: " 
«« Status[the step-»get status()]«« "Wn"; 
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elsel 
Ie otr o mp aName top Eet 
if(the_step->get_step_type()==0) 
Cout «« the step-»get step id() << ", Status: " 
«« Status[the step-»get status()]«« 

EI. 

) 

else 

(strcmp (aName, Status[the_step- 

= 0) 
cout «« the step-»get step id() << ", 


if 
>get_status()]) 





Status: ” 
«« Status[the step-»get status()]«« "Mn"; 


) 


// Be sure to cleanup heap based iterators 
delete anIterator; 

OC transactionCommit(); 

OC_close(); 

} 


void Add, primary input(int step id,char* thename) 
( 

1f( thename[0] !='0')( 

char comp_name[64] ; 

int var, ver; 

sscanf(thename,"£$s £d:£d",comp name, &var, &ver); 

STEP* a step-find step(step id); 

if(a step !zNULL)( 

COMP REFERENCE* my ref-new COMP REFERENCE(); 

ry ref-»set priv name(comp. name); 

ry ref-»set version, no(ver); 

my ref-»set variation, no(var); 

my ref-»putObgject(); 

a step-»add primary input (my ref); 

a step-»putObgject(); 

) 

else 

COUL -< STEP: "<< Step. 1d <<" is not in the 

BDBAN"; 


) 


void Delete primary input(int step id,char* comp name) 


( 
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if ( comp namelo !='0'){ 
STEP* a, step-find, step(step id); 
if(a step !=NULL) { 
a, step-»delete primary. input(comp, name); 
a step-»putObject(); 
} 
} 
} 
void Add_secondary_input (int step_id,char *thename) 
{ 
1f( thename[0] !='0'){ 
char comp. name[64]; 
int var, ver; 
sscanf(thename,"£€s £d:£$d",comp name, &var, &ver); 
STEP* a step-find, step(step 1d); 
if(a step !=NULL) { 
COMP. REFERENCE* my. ref-new COMP REFERENCE(); 
ry ref-»-set priv name(comp name); 
ry ref-»-set, version no(ver); 
my ref-»-set variation no(var); 
my ref-»putObject(); 
a Step-»add, secondary. input (my, ref); 
a, Step-»putObject(); 
) 
else 
cout <<"STEP: " «« step_id <<" is not in the 
PBB ie 


} 


void Delete_secondary_input (int step_id,char* comp_name) 
{ 
if( comp name [01 MEA! 
STEP* a step-find, step(step id); 
if(a step !zNULL)( 
a Step-»delete secondary input (comp name); 
a_step->putObject (); 
} 


void Add_affected_modules(int step_id,char* thename) 
{ 
if ( thename(0] !='0'){ 
char comp name[64]; 
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int var, ver; 
sscanf(thename,"£s d:$d",comp name, &var, &ver); 
STEP* a step-find step(step id); 
if(a step !=NULL) { 
COMP REFERENCE* my ref-new COMP REFERENCE(); 
my ref-»set priv, name(comp. name); 
my ref-»set version no(ver); 
my ref-»set variation no(var); 
my ref-»putObgject(); 
a Step-»-add affected modules (my ref); 
a Step-»putObject () ; 
) 
else 
Cout -STEP Tie ee id <<" is not in the 
ebm \n” ; 
} 
} 
void Delete_affected_modules(int step_id,char* comp_name) 
{ 
if( comp_name[0] !'='0')( 
STEP* a step-find step(step id); 
if(a step !zNULL)( 
a Step-»-delete affected, modules (comp. name); 
a Step-»putObject(); 
) 


void Update precedence(int step id,int preceding step id) 
( 
OC Boolean FOUND - FALSE; 
if(preceding step id !=0) { 
STEP* a step-find step(step id); 
if(a step !=NULL) { 
STEP* the step-find, step(preceding step id); 
if (the_step) { 
List* the list- a step-»preceded by(); 
ListIterator the iterator(the list); 
while(the iterator.moreData()) 
( 
STEP* stepl-(STEP*)(Entity*)the iterator(); 
if (stepl-»get step id()-- preceding. step id) 
FOUND = “TRUE > 
} 
ie (|! FOUND) 4 
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a step-»-add predecessor(the step); 

a step-»putObject(); 

if(the step-»get step type()--0 && a step- 
>get_step_type() ==0) { 

COMP REFERENCE* my ref-the step-»get, base version(); 

COMP REFERENCE* my refl-a step-»get base version(); 


if(strcemp(my ref-»get priv name(), my refl- 
-get priv, name())--20 && 
Dm ref-»get variation,no()-- my. refl- 
»get variation no() && 
my ref-»get version no()-- my. refl- 
»-get version, no())fí( 


List* my list - the step-»substep(); 
ListIterator my iterator(my list); 
while(my iterator.moreData()) 
( 
STEP* my step-(STEP*) (Entity*)my iterator(); 
List* a, list - my. step-»primary. input(); 
COMP REFERENCE* a ref- (COMP REFERENCE*)a  list- 
>getEntityElement (0) ; 
cout <<"first: "<< a_ref->get_priv_name() <<)" Wma 
List* my_listl = a_step->substep(); 
ListIterator my iteratorl(my list1); 
while(my_iteratorl.moreData()) { 
STEP* my_stepl=(STEP*) (Entity*)my_iteratonmimes 
List* a_listl = my_stepl->primary_input(); 
COMP REFERENCE* a, refl- (COMP. REFERENCE*)a, listl- 
>getEntityElement (0); 
cout <<"second: "<< a_refl->get_priv_name() << "An"; 
if(strcmp(a ref-»get priv name(), a refl- 
>get_priv_name())==0)( 
my_stepl->add_predecessor(my_step); 
my_stepl->putObject (); 


else 
cout <<"STEP: "-«wpreceding step 1d<<" 18 noc 
the DDBun*'- 
) 
else 
cout <<"STEP: " «« Step wd 5 is not 
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ma the DDB\n"; 


} 
} 


void Update_priority(int step_id,int value) 
{ 
if(value !=0) { 
STEP* a step-find step(step id); 
if(a step !zNULL)( 
a step-»set priority(value); 
a step-»putObject(); 
) 
else 
cout <<"STEP: " << step_id <<" is not 
Metne DDBIn":; 


) 
) 


void Update expertise level(int step id,int value) 
( 
if(value !=5) { 
STEP* a_step=find_step(step_id); 
if(a step !=NULL) { 
a_step->set_required_expertise_level (value) ; 
a_step->putObject(); 
} 


else 


oup" STEDS " << step id <<" is not-in the 
BDB\N"; 


} 


void Update status(char* dbname,int step id,int value) 
( 
OC_open (dbname) ; 
OC transactionStart(); 
STEP* a step-find,step(step id); 
if(a step !=NULL) { 
a_step->set_status (value); 
a step-»putObgject(); 
if (value -- Il value == 3){ 
STEP* my_step= a_step->get_parent_step(); 
1f(my_step!= NULL) ( 
if (my_step->get_status()< value) { 
my_step->set_status (value) ; 
my_step->putObject(); 


197 


) 


else 


cout <<" STEP: w<< ep 1d 4 is not in the 
DIETS 
OC transactaoneomms E 
OC_close(); 


) 


void Update deadline(int step id,char* theDate) 
( 
1f(theDate[0] !=0 && theDate[1] !'=0)( 
STEP* a step-find step(í(step id); 
if(a step !=NULL) { 
Time theTime(theDate); 
a_step->set_deadline(theTime) ; 
a_step->putObject (); 
List* my list - a step-»substep(); 
ListIterator an iterator(my list); 
while (an, iterator.moreData()) 
( 
STEP* my step-(STEP*)(Entity*)an iterator(); 
ry step-»set deadline(theTime); 
my step-»putObject(); 
} 
} 
else 


cout <<"STEP: " << step id <<" is not in the 
POB: 


} 


void Update_deadline(char* dbname,int step_id) 
{ 
OC_open (dbname) ; 
OC transactionStart(); 
OC, Boolean FOUND=FALSE; 
char an, id[8]; 
Time T(0,0m0, 060); 
sprintf (an_id,"%d" stepid); 
STEP* a_step=find_step(step_id); 
if(a step !zNULL)(Í 
List *aList = (List *)OC_lookup("MySchedule") ; 
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if(aList  !- NULL) ( 
Iterator* my iterator - aList-»getIterator(); 
// For each item in the iterator 
while(my iterator-»moreData()&& !FOUND) ( 
Schedule* nextAssignment - (Schedule*) 
üEntrty*)((*my iterator)()); 
i1f( strcmp (nextAssignment->Name(),an_id)==0 ) { 
POUND e 
T = nextAssignment-»-AssignmentFinish(); 


} 


STEP* the_step=a_step->get_parent_step(); 
the step-»set deadline(T); 
the step-»putObject(); 
List* my list - the step-»substep(); 
ListIterator an iterator(my list); 
while(an iterator.moreData()) 
( 
STEP* my step-(STEP*)(Entity*)an, iterator(); 
my step-»set deadline(T); 
my step-»putObject(); 
) 
) 
) 
OC transactionCommit(); 
OC close(); 
) 


void Update estimated duration(int step id,int value) 
( 
OC Boolean FOUND=FALSE; 
char an. id[8]; 
if(value !=0) { 
sprintf (an id,"$d",step id); 
STEP* a step-find step(step id); 
if(a step !zNULL)( 


if(a step-»get, status()-2-3)( 
int n - value - a step-»get estimated duration(); 
List *aList = (List *)OC_lookup("MySchedule") ; 
AS MIL SIE eed 


Iterator* my_iterator = aList->getIterator(); 
// For each item in the iterator 
while(my_iterator->moreData()&& !FOUND) { 
Schedule* nextAssignment = (Schedule*) 
PsneL1ty*) Ui*my iterator) ()); 
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if( strcmp(nextAssignment--Name(),an id)-s0 4 
FOUND == thu 
nextAssignment ->AssignmentFinish(nextAssignment- 
>AssignmentFinish()+n); 
nextAssignment->putObject (); 
} 
} 
} 
} 
a_step->set_estimated_duration(value) ; 
a step-»putObject(); 
) 


else 
cout << "STEP: " << SUBSP k is not in the DEBA 


) 


void Update start time(char* dbname,int step id,char* 
theDate) 
( 
OC, open (dbname) ; 
OC transactionStart(); 
Tages vpo0 0209050) 7 
STEP* a, step-find step(step id); 
if(a step !=NULL) { 
Time theTime(theDate); 
a step-»set start time(theTime); 
a_step->putObject (); 
STEP* the_step=a_step->get_parent_step(); 
if (strcmp (the_step- 
»get start time().makeString(), 

T.makeString()) ==0) { 
the_step->set_start_time(theTime) ; 
cout «e “done ha mE 

the step-»putObgject(); 
} 
} 
else 
cout << "STEP: -< step ilik E 1s not in the 
DDB Va 
OC transactionCommit(); 
OC. close(); 
} 


void Update_finish_time(char* dbname,int step id,char* 
theDate) 
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OC_open (dbname) ; 
OC transactionStart(); 
STEP* a, step-find, step(step id); 
if(a step !=NULL) { 
Time theTime(theDate); 
a Step-»set finish time(theTime); 
a step-»putObject(); 
STEP* the step-a step-»get parent step(); 
if(theTime » the, step-»get, finish, time())fí( 
the step-»set finish time(theTime); 
the_step->putObject (); 
} 
} 
else 
COUL << STEP: aue (step 41d <<" is not in the 
EDSAn"; 
@eeEransactionCommit (): 
OC. close(); 
} 


void Update_designer(char* dbname,int step_id,char* aName) 
{ 
OC_open (dbname) ; 
OC transactionStart(); 
STEP* a step-find step(step id); 
if(a step !=NULL) { 
a step-»set designer(aName); 
a_step->putObject (); 
} 
else 
cout <=MWSTEP: "<< step id <<" is not in the 
DEBAN” ; 
OC transactionCommit(í); 
—exclose(); 
) 


void Update Step(char* dbname,int step id,char* theDate, 
chant D 1nputA, char* p_inputD, 
char* s, inputA, char* s, inputD, 
cham nputa wehar* a-inputD, 
int pri_value, int prec_vlaue, 
int dur_vlaue, int exp_levvel) 


OC. open (dbname) ; 
OC, transactionStart(); 
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STEP* a, step-find step(step d); 
if(a step !zNULL)( | 
if (a_step->get_status()<= 1) { 


step_update(step_id,theDate,p_inputA,p_inputD,s_inputA,s_inp 
D 


a inputA,a inputD,pri, value,prec vlaue,dur. vlaue,exp levvel) 

a Step-»putObject(); 

cout ÉS "ad" "res" "Nauke 

) 

else 
if(a step-»get, status()-- l| a step- 

>get_status()== 3) 

( 


Jey save step old values(a. step); 


step update(step id,theDate,p inputA,p inputD,s. inputA,s. inp 
UcD, 


a_inputA,a_inputD,pri_value,prec_vlaue, dur_vlaue, exp_levvel) 
Cout <<x"S "I< An 
a_step->putObject(); 
} 
else 
1f(a_step->get_status()== 4) 
cout <<. "Cc "MSN 
else 
if (a_step->get_status()== 5) 
Gout << "a" «mm 


) 
OC transactionCommit(); 
OC. close(); 
) 


void step update(int step id,char* theDate, 
Char* P inputa char” pMenputb; 
char* s inputa, Char S InNputcD 
char* a_inputA, char* a_inputD, 
int pri, value, int prec vlaue, 
int dur vlaue, int exp level) 


Update deadline(step id,theDate); 
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Add primary input(step id, p inputA); 
Delete primary. input(step id, p inputD); 
Add, secondary. input (step. id,s, inputA); 
Delete secondary input (step. id,s. inputD) 
Add affected modules(step id,a, inputA); 
Delete affected modules(step. id,a. inputD); 
Update priority(step id,pri value); 
Update precedence(step id,prec vlaue); 
Update estimated, duration(step id,dur. vlaue); 
Update expertise level(step id, exp level); 


/ 


) 


void save step old, values(STEP* a. step) 
( 
STEP* temp step- new STEP("temp step",0); 
temp step-»primary input (a, step-»primary. input()); 
temp step-»secondary input (a, step-»secondary. input()); 
temp_step->affected_module(a_step- 
>affected_module() ); 
temp step-»set priority(a step-»get priority()); 
temp step-»preceded by(a step-»preceded by()); 
temp step-»set estimated duration(a, step- 
-get estimated duration()); 
temp step-»set deadline(a step-»get deadline()); 
temp step-»-set required expertise level(a. step- 
-get required expertise level()); 
temp step-»putObject(); 
) 


void Undo step update(char* dbname,int step. id) 
i 
OC_open (dbname) ; 
OC transactionStart(); 
STEP* a step-find step(step. id); 
if(a step)( 
STEP* temp step- (STEP*)OC lookup("temp step"); 
1f (temp_step) { 
a Step-»primary input(temp step-»primary input()); 
a step-»secondary. input (temp. step- 
-secondary. input()); 
a_step->affected_module(temp_step- 
>affected_module()); 
a_step->set_priority(temp_step- 
>get_priority()); 
a_step->preceded_by(temp_step->preceded_byv()); 
a_step->set_estimated_duration(temp_step- 
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-get estimated duration()); 

a step-»-set deadline(temp step- 
»get deadline()); 

a step- 
»set required expertise level(temp step- 
»get required expertise level()); 

temp step-»deleteObgject(); 

a Step-»putObject(); 


} 
OC transactionCommit(); 
OC. close(); 
} 
void create_step(char* dbname, char* pr_Name, char* 
comp_name) 
{ 
OC_open (dbname) ; 
OC transactionStart(); 
int my step id-0; 
int var, ver, varl,verl; 
char protoName[64]; 
char* my_step_name="step_"; 
char theName[64]; 
char temp[64]; 
Set *aSet - (Set *)OC lookup("step. set"); 
// If it does not exist, create it 
if(aSet -- NULL) ( 
//cout << "Creating set object ...\n"; 


// Create a new set called step_set 
aSet = new Set((Type*)OC lookup("STEP"), "step set"); 
} 
// Create step objects and insert it into the step_set 
Sequencer* 
aSequencer= (Sequencer*)OC_lookup ("Step _Sequencer'") ; 
1f (aSequencer== NULL) ( 


//cout << "Creating Sequencer object ...\n"; 
aSequencer- new Sequencer("Step Sequencer"); 
E aSequencer->putObject () ; 


my step id-1; 
) 


else( 


Lë cout << aSequencer->Name() << " already exists.\n"; 


ry step id = aSequencer->getValue() ; 
"m aSequencer-»putObject(); 
) 
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sprintf(temp,"£s£d", my step name,my step id); 
STEP* a step-new STEP(temp,my step id); 


sscanf (pr_Name,"%s %d:%d",theName, &var, &ver); 
char *aName = new char[strlen(theName) +1]; 
strcpy (aName, theName) ; 

Nu vdr--OMvarl s 1; 

else varl =var; 

E (ver==0)"verl =1; 


else verl=ver; 


sprintf (protoName, "%s %d:%3d",aName, varl, verl); 
thepath=0; 

find component path(protoName,aName); 

if ('thepath) { 


cout << "there 1s no: "<<aName <<" prototype in DDB 
pne 
return; 
) 
else! 
COMP. REFERENCE* my ref-new COMP REFERENCE(); 
my ref-»set priv name(aName); 
my ref-»set version no(ver); 
| my ref-»set, variation no(var); 
my ref-»putObject(); 
a step-»set base version(my ref); 
sscanf(comp name,"£s £d:$d",theName, &var, &ver); 
| char* a_name=new char[strlen(theName) +1]; 
| strcpy (a, name, theName) ; 
| char* check=0; 
check = theName+strlen(theName) -10; 
te(stacmp check,".spec.psal")==0)( 
My_String templ= My_String(theName) -10; 
cenar *"ehecki=(char”*) templ; 
find, component path(protoName,check1); 
if(!thepath) 
cout <<"there is no: "<<theName <<" component 
De An”; 
else{ 


COMP REFERENCE* my ref-new COMP REFERENCE(); 
my ref-»set priv name(a name); 
my ref-»set version, no(ver); 
my ref-»set variation no(var); 
my ref-»putObgect(); 

set affected modules(a step, protoName,check1); 
a step-»add primary. input (my. ref); 
aSequencer->putObject (); 
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a step-»putObgect(); 
aSet-»Insert(a, step); 
aSet->putObject (); 
} 
)elseí( 
char* cheokli- 0: 
checkl1 = theName+strlen(theName) -9; 
1£(stremp chaeckl amp. psa ME 
My String templ- My String(theName)-9; 
char* checkl=(ehar =) temp ls 
find component. path(protoName,check1); 
if(!thepath) 
cout <<"there is no: "<<theName <<" component 
DDN 
else( 
COMP. REFERENCE* my ref-new COMP REFERENCE(]); 
my ref-»set, priv, name (a, name); 
ry ref-»set version no(ver); 
my ref-»set variation, no(var); 
my ref-»putObgject(); 
a step-»add, primary. input (my. ref); 
aSequencer->putObject (); 
set_secondary_input (a_step, thepath) ; 
strcat(checkl,".spec.psdl"); 
my ref-new COMP REFERENCE(); 
ry ref-»set priv name(check1); 
my_ref->putObject () ; 
a_step->add_secondary_input (my_ref) ; 
a_step->putObject (); 
aSet->Insert (a_step) ; 
aSet->putObject (); 
} 
}else 
cout << "wrong components suffix” Gage 


} 
} 
OC transactsmoncColmmitess 
OC. close(); 
) 


void set affected modules(STEP* a step, char* protoName,char* 
comp name) 
( 
char* aName= new char[strlen(comp_name) +1]; 
strcpy (aName, comp. name) ; 
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COMP REFERENCE* my ref-znew COMP REFERENCE(); 
char temp[64]; 
sscanf (protoName,"%s", temp); 
1f (strcmp (temp, comp_name) !=0) { 
char *separator="."; 
Char? words, 


e HEEN 
word [0] =strtok(comp_name, separator); 
while(word[i] !=NULL) { 

i=i+1l; 


word[i]=strtok(NULL, separator); 
} 
int n = strlen(word[i-1])+1; 
My String temp-My String(aName)- n 
mr string(".imp.psdl"); 
char* parent-(char*)temp; 
ry ref-»set priv name (parent); 
my ref-»putObject(); 
a step-»add affected, modules (my. ref); 
) 
strcat(aName,".imp.psdl"); 
my ref-new COMP REFERENCE(); 
my. ref-»set priv name(aName); 
my ref-»putObject(); 
a Step-»add affected modules (my ref); 
a step-»putObject(); 
) 


void set secondary input(STEP* a step,char* compPath) 
( 
COMP REFERENCE* my ref; 
chal check=tenar” 0; 
COMPONENT *my_comp =(COMPONENT *)OC_lookup (compPath) ; 
if (my_comp != NULL) { 
List* my list - my comp-»subComponents(); 
ListIterator my iterator(my list); 
COMPONENT *theComponent; 
while(my iterator.moreData()) 
{ 
theComponent=(COMPONENT *) (Entity*)my_iterator(); 
List* the list - theComponent-»TextObjectList(); 
ListlIterator the iterator(the list); 
TEXT OBJECT *the text, object; 
while(the iterator.moreData()) 


( 
the text object - 


207 


(TEXT OBJECT*) (Entity*)the iterator(); 
check zthe text object-»getFileName()- 
strlen(the, text, object-»getFileName())-10; 
if (stremp (check, “spec. paall™ )==0 4 
my ref-new COMP REFERENCE(); 
my ref-»set priv, name(the text object- 
»-getFileName()); 
my ref-»putObject(); 
a step-»add secondary. input (my. ref); 
) 
) 
} 
} 
else 
cout <<"cannot find the component \n"; 


void create_substep(char* dbname,int step_id, char* p_input, 
char* d name, char* thedate, int 
duration) 
( 
OC_open (dbname) ; 
OC transactionStart(); 
OC. Boolean FOUND-FALSE; 
Time Tl(thedate); 
int my step idzs0; 
char temp[64]; 
char temp1[64]; 
char* my_step_name="step_"; 
Set *aSet = (Set *)OC_lookup("step_set") ; 
Sequencer* 
aSequencer-z(Sequencer*)OC lookup("Step Sequencer"); 
my step id - aSequencer-»getValue(); 
aSequencer->putObject () ; 
sprintf (temp, "%s%d", my step name,step. id); 
STEP* the step-(STEP*)OC lookup (temp); 


1f (the_step == NULL) 
cout <<"there 1s no such parent step Mn"; 
else( 


sprintf(templ, "%*s3d", my step name,my step id); 
STEP* a step-new STEP(templ,my step id); 
ifUupinput[0l OM 

COMP REFERENCE* my ref-new COMP REFERENCE(); 

my ref-»set priv, name (p input); 

my ref-»putObject(); 
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a Step-»add, primary input (my ref); 
a Step-»set parent step(the step); 
a step-»set base version(the step-»get base version()); 
a step-»set deadline(the step-»get deadline()); 
a step-»set priority(the step-»get priority()); 
a step-»set estimated, duration(duration); 
a step-»set step type(5); 
List* my list- the step-»substep(); 
ListlIterator my Iterator(my list); 
STEP* my step; 
// For each item in the iterator 
while(my Iterator.moreData()&& !FOUND) ( 
// Get the item 
my_step=(STEP*) (Entity *)my_Iterator() ; 
if (my_step->get_status()==3 && 
strcmp (my_step->get_designer(),d_name) ==0) { 
a Step-»add predecessor(my step); 
FOUND = TRUE: 
) 


) 
a_step->putObject (); 


cout << a_step->get_step_id()<< "\n"; 


int T2- a step-»get deadline() - T1; 
Jp TZ 05 

cout << 000" cc "Xn"; 

else 


cou ee "An": 
cout <<a Steps-get priority) << "xm"; 
cout ««a step-»get estimated duration() ««"Mn"; 
Gout Pate 
a Step-»show preceding. steps(); 
mou ue pM 
cout <<Level[a_step- 
»get required expertise level()]«« "Wn"; 
cout «« a Step-»get in degree() «« "Mn"; 


the step-»add substep(a step); 

char protoname[64]; 

Py string temp4= MysString(p »mput)e9; 

char *compname = (char*) temp4; 

COMP REFERENCE* my comp- the_step->get_base_version(); 
char *temp2-my comp-»get priv. name(); 

int varzmy comp-»get variation no(); 

int verzmy. comp-»get version, no(); 
sprintf(protoname,"$s %d:%d", temp2,var, ver); 
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find component path(protoname, compname); 
if (thepath) 
set secondary. input (a, step,thepath); 


// else 
LG cout ««"Cannot find™@omponent: " << compnamer eu 
TEE Im 


) 

the step-»putObgject(); 
aSet-»Insert (a step); 
aSet-»putObject(); 

) 

OC transactionCommit(); 
OC close(); 


STEP* create substep(STEP* the step, char* p input) 
{ 
// OC_open(dbname) ; 
Il OC transactionstart l): 
int my step rdz0; 
char temp1[64]; 
char* my step name-"step "; 
Set *aSet - (Set *)OC lookup("step set"); 
Sequencer* 
aSequencer-(Sequencer*)OC lookup("Step Sequencer"); 
mry step id - aSequencer-»getValue(); 
aSequencer-»putObject(); 
sprintf(templ,"£s£Zd", my step name,my step id); 
STEP* a step-new STEP(templ,my step id); 
a cout ««"step name: " <<templ <<"\n"; 
COMP REFERENCE* my ref-new COMP REFERENCE(); 
char* a_name=0; 
a_name=new char[strlen(p_input) +1]; 
strcpy(a, name,p. input); 
my ref-»set, priv name(a, name); 
my ref-»putObject(); 
a step-»set base version(the step-»get base version()); 
a step-»add primary. input (my ref); 
a Step-»set parent step(the step); 
a_step->putObject (); 
the_step->add_substep(a_step) ; 
char protoname[64]; 
My String temp4- My String(p input)-9; 
char *compname - (char*) temp4; 
COMP REFERENCE* my comp- the step-»get base version(); 
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char *temp2-my comp-»get priv. name(); 

int varzmy comp-»get variation, no(); 

int verzmy comp-»get version. no(); 
sprintf(protoname,"£€s £d:$d", temp2,var, ver); 
char* check=a_name+strlen(a_name)-10; 

REM stromp(checka.spec.psdl*e!- 0) 

{ 

thepath =0; 

find_component_path(protoname, compname) ; 

if (thepath) { 


n cout” == check: —coheck <z<"\n"; 
set_secondary_input (a_step, thepath) ; 
strcat (compname, ".spec.psdl"); 





COMP REFERENCE* my ref-new COMP REFERENCE(); 
ry ref-»set priv, name(compname); 
my ref-»putObject(); 
a Step-»add secondary input (my ref); 
) 
else 
cout <<"Cannot find component: " << compname <<" in 
Bee \n"; 
} 
a step-»putObject(); 
the step-»putObgject(); 
aSet-»-Insert (a step); 
aSet-»putObject(); 
return a step; 


) 


void auto, create substeps(char* dbname,int step id) 
{ 
OC_open (dbname) ; 
OC, transactionStart(); 
GEPMPOREFERENCE* my ref; 
STEP* my. step; 
STEP* a stepl; 
STEP* a, step2; 
char temp[64]; 
char* my step name-"step "; 
sprintf(temp,"£s£$d", my step name,step id); 
STEP* the stepz(STEP*)OC lookup (temp); 


if (the step -- NULL) 
cout ««"there is no such parent step Mn"; 
else{ 


List *my list-the step-»primary input(); 
my_ref =(COMP_REFERENCE*)my_list->getEntityElement (0); 
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"Lr char* my name-0; | 
int nl= strlen(my ref-»get priv name())-«1; 
char* my name-znew char[n1l]; 
strcpy (my. name,my ref-»get priv name()); 
myname [nl |=) Vo F 
mm Step- create substep(the step,my name); 
o cout ««"my name: " ««my name ««"Mn"; 
char* check=0; 
check = my_ref->get_priv_name()+strlen(my_ref- 


>get_priv_name())-10; 
T Cout<<! check Me Check e -Ano 
1f (strcmp(check, ".spec.psdl")]==0){ 


my_step->set_step_type(1); 
my_step->set_status (1); 
my_step->set_deadline(the_step->get_deadline()); 
my_step->set_priority(the_step->get_priority()); 
the step-»set status(1); 
the step-»putObject(); 
my step-»putObject(); 
List* a list - the step-»-affected module(); 
COMP REFERENCE* a refl1; 
COMP REFERENCE* a ref2; 
a refl1 -(COMP REFERENCE*)a list- 
>getEntityElement (0); 
/ / char* a, name2z20; 
int n2-strlen(a refl-»get. priv name())-«1; 
char* a name2- new char[n2]; 
strcpy (a name2,a, refl-»get priv name()); 
a_name2[n2]='X10'; 
Es cout ««'my name: " <<a_name2 <<"\n"; 
a Stepl - create substep(the step,a name2); 
if (a_list->Cardinality ()==1) 
a_stepl->set_step_type(2); 
else 
a_stepl->set_step_type(3); 
a_stepl->set_status (1); 
a_stepl->add_predecessor (my. step); 
a Stepl-»set deadline(the step-»get deadline()); 
a stepl-»set priority(the step-»get priority()); 
a Stepl-»putObject(); 
if(a list-»Cardinality()» 1)( 
a ref2 -(COMP REFERENCE*)a list- 
>getEntityElement (1) ; 
int n3=strlen(a_ref2->get_priv_name())+1; 
char* a_namel= new char([n3]; 
GE cout ««"my name: " ««a namel ««"Mn"; 
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strcpy (a, namel,a, ref2-»get priv name()); 
a_namel[n3]='\0'; 
a Step - create substep(the step,a namel); 
a step2-»set step type(2); 
a_step2->set_status (1); 
a_step2->add_predecessor (my_step) ; 
a_step2->set_deadline(the_step->get_deadline()); 
a_step2->set_priority(the_step->get_priority()); 
a step2-»putObject(); 
my step-»putObject(); 
} 
} 
else{ 
my_step->set_step_type (4); 
my_step->secondary_input (the_step- 
>secondary_input()); 
my_step->set_status (1); 
my_step->set_deadline(the_step->get_deadline()); 
my_step->set_priority(the_step->get_priority()); 
my step-»putObject(); 
the step-»set status(1); 
the step-»putObject(); 
) 
} 
OC transactionCommit(); 
OC, close(); 
) 


void commit substep(char* dbname,int step id) 
( 

OC_open (dbname) ; 

Se stransactionStart () ; 

STEP* the step-find step(step id); 


if (the step -- NULL) 
cout <<"there is no such step Mn"; 
else{ 


int my status - the step-»get status(); 
if( my status !-3) 
cout «« "cannot commit an un-assigned step Mn"; 
else{ 
if(the step-»get step type()--0) 
cout <<the_step->Name() << " is not a substep!! Mn"; 
else{ 
char an, 1d(64]; 
sprintf (an, id,"£d",the step-»get. step id()); 
My String 
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temp=My_String(".")+*My Stringa("step_")+My_ Strina (an tiae 
dirNamePtr =(char*) temp; 


COMP_REFERENCE* my_ref= the_step- 
»get base version(); 
char* thename -2 my ref-»get priv, name(); 
int var - my ref-»get variation, no(); 
int ver - my ref-»get version no(); 
char protoname[64]; 
sprintf(protoname, "%s %d:%d", thename,var,ver) ; 
/ / cout <<"protoname: " <<protoname <<"\n"; 
List* my list- the step-»primary, input(); 
COMP REFERENCE* a refl; 
a refi -(COMP REFERENCE*)my list- 
»getEntityElement(0); 
char *my_name= new char[strlen(a, refl- 


»get priv, name())-41]; 
strcpy (my name,a, refl-»get priv. name()); 
1f(the step->get_step. typel) ==1)4 
My_String temp4= My_String(my_name)-10; 
char *compName = (char*) temp4; 
1 cout << "compName: " ««compName <<"\n"; 


COMPONENT* new_comp; 
new comp - Add new version(protoname,compName); 
if (new comp-- NULL) 
cout << "the dam error again Mn"; 
else{ 
the_step->add_output (new_comp) ; 
the step-»set status(4); 
the step-»putObject(); 
) 
) 


else{ 
if (the_step->get_step_type()== 4) { 
My_String temp4= My_String(my_name) -9; 
char *compName = (char*) temp4; 


COMPONENT* new_comp; 
new comp - Add new. version(protoname,compName); 
1f (new_comp== NULL) 
cout << "the dam error again Mn"; 

else( 

the step-»add, output (new, comp) ; 

the step-»set, status(4); 

the step-»putObject(); 

) 
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) 
else 
( 
My String temp4- My String (my name)-9; 
char *compName - (char*) temp4; 
List* a list- the step-»preceded by(); 
STER? step-(STEP*)a, list-»getEntityElement (0); 
List* the, list-my step-»output(); 
COMPONENT* acomp= (COMPONENT* ) 
the_list->getEnt1tyElement (0); 
if (the_step->get_step_type() ==2) { 
My String templ(My, String(dirNamePtr) 
Ah String("/")« My String(a, refl- 
-get priv, name())); 
char *temp2= (char*) templ; 
ifstream myFile (temp2); //=(char*)0; 
if (myFile) { 
TEXT OBJECT ta text ob): 
cout <<"Creating text object: " 
<<a_refl->get_priv_name() <<"...\n"; 
a text obj- new TEXT OBJECT(); 
a text obj-»append(a, refl-»get priv name(), 
myFile); 
aComp-»replaceTextObject(a, text obj); 
aComp->putObject () ; 
the_step->add_output (aComp) ; 
the step-»set status(4); 
the step-»putObgect(); 
) 


else cout ««"there is no such file: " ««a refl- 
>get_priv_name() <<"\n"; 
} 
elsel 
if(the step-»get step type()-z-3)( 


char* badr= new char[strlen(aComp- 
>CompnentName())+1]; 
strcpy (badr, aComp->CompnentName () ) ; 
char* salah=get_last_token (badr) ; 
COMPONENT* new_comp; 
new corp = 
Add new version(í(protoname,compName); 
if (new_comp != NULL) { 
new_comp->replace_subconponent (aComp, salah) ; 
new_comp->putObject (); 
the_step->add_output (new_comp) ; 
the step-»set status(4); 
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the. step-»putObject(); 


) 
) 
OC_t ransactwonCommi & (@GmdoNot hinge 
OC close(); 
) 


void commit step(char* dbname,int step id) 

( 
OC_open (dbname) ; 
OC_transactionStart (); 
char temp[64]; 
char* my step name-"step "; 
sprintfí(temp,"£s£d", my step name,step id); 
STEP* the step-z(STEP*)OC. lookup (temp); 


if (the step -- NULL) 
cout ««"there is no such step Mn"; 
else( 


int my status - the. step-»get, status(); 

1f( my Jstatus 3) 

cout << "cannot commit un-assigned step \n"; 

else{ 
COMP_REFERENCE* my_ref= the_step- 

»get base version(); 

char* thename - my ref-»get priv name(); 
int var - my ref-»get variation no(); 
int ver - my ref-»get version no(); 
char protoname [64] ; 
sprintf(protoname, "%s %d:%d", thename,var,ver) ; 


1f(the_step->get_step_type() ==0) 
{ 
List* my_list = the_step->substep(); 
if (my_list->Cardimaliťy()== 1) 
{ 
STEP* my_step=(STEP*)my_list- 
>getEntityElement (0); 
List*@a “Vist - my step-»output(); 
COMPONENT* my comp; 
my comp -(COMPONENT*)a list- 
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»getEntityElement (0); 
char* 
templ-generate new configuration(í(protoname, my comp); 
update base versions(step id,templ); 
the step-»set status(4); 
the step-»putObject(); 
| } 
| else 
( 
List* my list - the step-»substep(); 
ListIterator my iterator(my list); 
while (my. iterator.moreData()) 
( 
SIDE PS 
| nuu cD-(STEP*)(Entity*)my iterator(); 
if (my step-»get step type()--23) 
( 
List* a,list - my, step-»output(); 
COMPONENT* my comp; 
my comp -(COMPONENT*)a list- 
>getEntityElement (0); 
char* 
templ-generate, new configuration(protoname, my comp); 
the step-»set status(4); 
update base versions(step id,templ); 
the step-»putObJject(); 
) 





) 
) 
else 
cout <<" Sorry this is not a top level step Mn"; 
) 
) 
OC transactionCommit (OC _doNothing) ; 
OC. close(); 


void update base versions(int step id,char* templ) 
( 
char propto name[64]; 
ome Var, ver; 
sscanf(templ,"%s £€d:$d", propto, name, &var, &ver); 
STEP* the step - find, step(step. id); 
if(the step != NULL) { 


Ee 


COMP REFERENCE* a ref- the step-»get base version(); 


Set *aSet = (Set *J)OC. lookup("step set"); 

// Ask the set object for an iterator 

Iterator* anIterator = aSet->getIterator(); 

OTEP* my step; 

// For each item in the iterator 
while(anIterator->moreData()) { 

// Get the item 

my_step=(STEP*) (Entity *) (anIterator->operator() ()); 
if (my step-»get status() «- 3)Í( 

COMP REFERENCE* my ref- my step-»get base version(); 
if(strcmp(í(a, ref-»get. priv name(), 


my ref-»get priv, name(í())-220 && 
a ref-»get version no()--2 my ref-»get version, no() 
&& 
a ref-»get variation no()-- my. ref- 
»get variation, no())( 


ry ref-»set version no( ver); 
Iy ref-»set variation no(var); 
my ref-»putObgject(); 

my. step-»putObgject () ; 

} 
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#include <Database.h> 
#include <Directory .h> 
#include <string.h> 
#include <Set.h> 

#include "step Operations.h" 


extern "C" 


{ 


char *getenv(const char *); 


//Globals 

char* dirNamePtr="."; 

int warning. time-1; 

char *dbName- "supportDB"; 

char* DESIGN DATABASE DIRECTORY-"DesignDB"; 
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char* thepath =(char*)0; 
mot ~evyepath =(char*) 0; 
SOMPONENT" compPtrzNULL:; 


[i@emmain{int argc,char *argv[]) 


{ 


char OPEC On: (Char O; 
char *aName= (char*)0; 
char *aNamel=(char*)0; 
char *dbName=(char*)0; 
char theothername[64] ; 
char tmp1[64]; 

char tma!) 

char *tmp»ichar^y05 
char tmp4[64]; 

char: *empssuchsre)50: 
char tmp6[64]; 

char “Emp/=lenhar* 0: 
int my step id; 

int a step id, a value,a valuel,a value2; 


char *user name - getenv("USER"); 


if (argv[11]) 

( 
dbName - new char[strlen(argv[1])-«1]; 
strcpy (dbName,argv[1]); 

} 


BEE (argv [2] ) 

{ 
option = new char[strlen(argv[2])+1]; 
Str py (Option, argv[2]); 

) 


// Create step 
Opt OO == A 
// get proto name 
aNamel = new char[strlen(argv[3])+1]; 
strcpy(aNamel,argv[3]); 
aName = new char[strlen(argv[4])+1]; 
strcpy (aName,argv[4]); 
sprintf(tmpl,"£s $s",aNamel,aName); 
aNamel = new char[strlen(argv[5])+1]; 
strcpy(aNamel,argv[5]); 
aName = new char[strlen(argv[6])+1]; 
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strcpy (aName,argv[6]); 
sprintíÍ (tmp2,"%s %s" aNamel aName) ; 
create step(dbName,tmpl,tmp2); 


) 
else if (option[0] ==""2 "M4 
//Show Step 
aName = new char[strlen(argv[3])+1]; 
strcpy (aName,argv[3]); 
sscanf(aName,"$d",&my step id); 
show step(dbName,my step id); 
) 
else Tr (Opteron Il OA 
// show steps of certain status 
aName = new char [strlen(argv[3])+1); 
strcpy (aName,argv[3]); 
show steps (dbName, aName) ; 
} 
else if(option[0] == '4°)% 
// update step 
aName = new char([strlen(argv[3])+1]; 
strcpy laName,argv[3]); 
sscanf(aName,"£d",&my step id); 


// update deadline 

aNamel = new char([strlen(argv[4])+1]; 
strcpy (aNamel,argv[4]); 
aName = new char[strlen(argv[5])+1]; 
strcpy (aName, argv[5]); 
sprintf(tmpl,"£s %s",aNamel,aName) ; 


// add primary input 

aNamel = new char[strlen(argv[6])+1]; 
strcpy (aNamel,argv[6]); 
aName = new char[strlen(argv[7])+1]; 
strcpy (aName, argv[7]) ; 
sprintf(tmp2,"%s %s",aNamel,aName) ; 


//delete primary input 
tmp3 = new char[strlen(argv[8])+1]; 
strcpy (tmp3,argv[8]); 


// add secondary input 

aNamel = new char[strlen(argv[9])+1]; 
strcpy (aNamel,argv[9]); 
aName = new char Í[strlen(argv[(10])+1]; 
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strcpy(aName,argv[10]); 
sprintf(tmp4,"£s $s",aNamel,aName); 


// delete secondary input 
tmp5 = new char[strlen(argv[(11])+1]; 
Ar DY Cmo argv ITI); 





// add affected_modules 
aNamel - new 
"norm strlen(argv[12])-1]; 
strcpy (aNamel,argv[12]); 
aName - new char[strlen(argv[13])-41]; 
strcpy (aName,argv[13]); 
sprintf(tmp6,"%s %s",aNamel,aName) ; 


// delete affected modules 
tmp7 - new char[strlen(argv[14])-«1]; 
strcpy(tmp7,argv(14]); 


// Update priority 
aNamel - new 
char[strlen(argv[15])+1]; 
strcpy (aNamel,argv[15]); 
sscanf(aNamel,"£d",&a value); 


// Update precedence 
aNamel = new 
char[strlen(argv[16])+1]; 
strcpy (aNamel,argv[16]); 
sscanf(aNamel,"£d",&a step id); 


//Update estimated duration 
aNamel - new 
char [strlen(argv(17])+1]; 
strcpy (aNamel,argv[17]); 
sscanf (aNamel, "%d",&a_valuel) ; 


// Update_expertise_level 
aNamel = new 
char[strlen(argv[18])-41]; 
strcpy (aNamel,argv[18]); 
sscanf (aNamel,"£d",&a value2); 
Update Step(dbName,my step id,tmpl, 
bn xcmp»sumpd,tmp5,tmpb;j'tmp7., 


a value,a step id,a valuel,a, value2); 


Do 


) 


else mé (opt 1om[0 ] == 'S')( 


%s" aNamel aName) ; 


theothername); 


) 


// Update start time 

aName = new char([strlen(argv[3])+1]; 
strcpy (aName,argv[3]); 
sscanf(aName,"£d",&my step id); 
aNamel = new char[strlen(argv[4])+1]; 
strcpy (aNamel,argv[4]); 
aName = new char[strlen(argv[5])+1]; 
strcpy (aName,argv[5]) ; 
sprintf (theothername, "%s 


Update start, time(dbName,my step id, 


elsewsf(optrien[)e--eu 09 { 


$s",aNamel,aName) ; 


theothername) ; 


} 


// Update_finish_time 

aName = new char[strlen(argv[3])+1]; 
strcpy (aName,argv(3]); 
sscanf(aName,"£d",&my step id); 


aNamel = new char([strlen(argv[4])+1]; 
strcpy laNamel,argv[4]); 
aName = new char[strlen(argv[5])+1]; 


strcpy (aName,argv[5]); 
sprintf (theothername, "%s 


Update finish, time(dbName,my step id, 


else if (option ol 22 7D 


// Update Status 

aName = new char[strlen(argv[3])+1]; 
strcpy (aName,argv[3]); 
sscanf(aName,"£d",&my step id); 
aNamel - new char[strlen(argv[4])-«1]; 
strcpy(aNamel,argv[4]); 
sscanf (aNamel1, "$d",&a, value); 


Update status(dbName,my. step. id,a, value); 


) 


else if(option[0] == '8')( 


// Update designer 
aName = new char[strlen(argv[3])+1]; 


strcpy (aName, argv[3]); 
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sscanf (aName,""£€d",&my step id); 
aNamel - new char[strlen(argv[4])-«1]; 
strcpy (aNamel,argv[4]); 


Update designer (dbName,my. step id,aNamel1l); 


) 


else if(option[0] == '9'){ 


} 


// print commit data 
aName - new char[strlen(argv[3])-«1]; 
strcpy (aName, argv[3]) 
sscanf (aName, "$d",&my. step id); 
get commit data(dbName,my step id); 


else if(option[0] == 'a')( 


%s",aNamel, aName) ; 


// get scheduling data 

aName = new char[strlen(argv[3])+1]; 
strcpy (aName,argv[3]) 
sscanf (aName, "Zd",&my step id); 
aNamel - new ee OU ide 
strcpy (aNamel, argv [4] ) 
aName = new char [strlen (argv[5]) +1]; 
strcpy (aName, argv[5] ) 
AA 


get_scheduling_data(dbName,my_step_id, 


theothername) ; 
} 
ersemle (Opt tom) 0) == 4b!) { 
// create substep 
aName = new char[strlen(argv[3])-«1]; 
strcpy (aName,argv[3] ) 
sscanf (aName, "$d",&my. step id); 
aNamel - new char[strlen(argv[4])-«1]; 
strcpy (aNamel, argv[4]) 
tmp3 = new char([strlen(argv[5])+1]; 
strcpy (tmp3,argv[5]) 
tmp5 = new char[strlen(argv[6])+1]; 
Strepy (tmps,argy|6)): 
sprintf (theothername,"%s %s",tmp3,tmp5); 
aName = new char[strilen(argv[7])+1]; 
strcpy (aName,argv[7]); 
sscanf(aName,"£€d",&a value); 
create substep(dbName,my step id,aNamel, 
user name, theothername, 
a value); 


223 


else if(optron[0] == "Cc" Mi 
// approve step 
aName = new char[strlen(argv[3])+1]; 
strcpy (aName,argv[3]); 
sscanf(aName, "$d",&my step id); 
auto create substeps(dbName,my step id); 


else if(option ide == ll { 
// commit substep 
aName = new char[strlen(argv[3])+1]; 
strcpy (aName, argv[3]); 
sscanf(aName,""$d",&my step. id); 
commit substep(dbName,my step id); 


else 1f(option[0] == "e e 
// commit step 
aName = new char[strlen(argv[3])+1]; 
strcpy (aName, argv[3]); 
sscanf(aName,"£d",&my step id); 
commit step(dbName,my step id); 


else if(optuzon[0] "9-29" f {4 
// remove step. from schedule 
aName = new char [strlen(argv[3])+1]; 
strcpy (aName,argv[3]); 
aNamel = new char[strlen(argv[4])+1]; 
strcpy (aNamel,argv[4]); 
tmp3 = new char[strlen(argv[5])+1]; 
strcpy (tmp3,argv[5]); 
sprintf (theothername, "%s 
$s",aNamel,tmp3) ; 
remove_step_from_schedule(dbName, aName, 


theothername) ; 
} 
else if(option[0] == 'g'){ 
// Dump step components 
aName - new char[strlen(argv[3])-41]; 
strcpy laName,argv[3]); 
sscanf(aName, "$d",&my step id); 
dump step components (dbName,my. step. id); 
} 
else 1f(option[0] ==""h") 


// find assigned step 
find, assigned step(dbName, 
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user name); 
PlLcemrt (Option, Cj] zo" ')( 
// Suspend/Abandon Step 
aName = new char([strlen(argv[3])+1]; 
strcpy (aName,argv[3]); 
sscanf(aName,"£d",&my step id); 
aNamel - new char[strlen(argv[4])-41]; 
strcpy (aNamel,argv[4]); 
sscanf (aNamel,"£d",&a value); 
suspend abandon step(dbName,my step id, 
a value); 
) 
EE eebe) 
// Suspend/Abandon Step 
aName = new char[strlen(argv[3])+1]; 
strcpy (aName,argv[3]); 
sscanf(aName,"£d",&my step id); 
Update deadline(dbName,my step id); 
) 
else if(option[0] == 'k')( 
// Suspend/Abandon Step 
aName = new char[strlen(argv[3])+1]; 
strcpy (aName,argv[3]); 
aNamel = new char[strlen(argv[4])+1]; 
strcpy(aNamel,argv[4]); 
sprintf (theothername,"%s %s",aName, 
aNamel1) ; 
Early warning .(dbName,theothername); 
) 
else (opeion[0). == "109 
// get scheduling data 
aName - new char[strlen(argv[3])-«1]; 
strcpy (aName,argv([3]); 
aNamel = new char [strlen(argv[4]))+1]; 
strcpy (aNamel,argv[4]); 
sprintf (theothername, "%s 
$s",aName, aNamel) ; 
aName = new char[strlen(argv[5])+1]; 
strcpy (aName,argv[5]); 


get scheduling. data. 2(dbName,theothername, 
aName) ; 
} 


elce if (Option 0) == 'm'){ 
aName = new char[strlen(argv[3])+1]; 
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strcpy(aName,argví3]); 
aNamel- new char[strlen(argv[4])-«1]; 
strcpy(aNamel,argv([4]); 
sprintf (theothername, "%s 
$s",aName,aNamel1) ; 
aName = new char([strlen(argv[5])+1]; 
strcpy (aName,argv[5]); 
get_Sched_data_1 (dbName, "MySchedule" 
theothername, aName) ; 
} 
else 
cout <<"Wrong Option: " «« option = 
Try again in"; 
) 


2. Class Component 


component h sk sk ok oe ok ale ale ade ade ale ale ade ade ale ale ale ale ale ale ale ale ale ale ale ole ade ale ale ale ale ae ale ale ade ade ok oe oe ok ok ok ok oe oke ok ale ade ale ole ale ae ale ale ale ole ade ade ae ole 


4&ifndef | COMPONENT H 
define | COMPONENT H 


#include <Object.h> 

#include <Dictionary.h> 
#include <Type.h> 

#include <List.h> 

#include <Reference.h> 
//#include "ReferenceMacros.h" 
#include <stream.h> 


#ifndef _ TEXT OBJECT H 
#include "text_object.h" 
#endif 


extern "C" 

{ 

tinclude <sys/time.h> 
#include <sys/types.h> 
#include <string.h> 


} 
Hi Class m 


17 Defines a COMPONENT class. The class COMPONENT is a 
derived 
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Ka class of Object. 
class COMPONENT 
public Object 


{ 


private 


públic: 


Object. 


int version. id; 

ER variation. id; 

char: theName; 

char* priv aūthor; 

time t DateCreated; 

char* previous_version; 
char* next version; 
Reference partwof list; 

// parent relationship 

Reference sub component list; 
// child relationship 

Reference used by list; 
Reference text object. list; 
"e COMPONENT --APL ONTOS required constructor 


COMPONENT (APL *theAPL); 


II Constructs a COMPONENT object 
COMPONENT (char* name,int ver, int var); 


// ONTOS method for savig Object as pesistent 


virtual void putObject (OC. Boolean 


deallocate=FALSE) ; 


// ONTOS method for deleting an Object 
virtual void deleteObject(OC, Boolean 
deallocate=FALSE) ; 


// ONTOS heap mangagement method. 
virtual void Destroy(Boolean abort = FALSE); 


GC Return the ONTOS Type of class COMPONENT. 
virtual Type *getDirectType(); 


// Set the version mumber 


void versionNumber (int ver) { 
version_id = ver; 
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/ / 


o 
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e 


d 


/ / 


GE 


/ / 
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get the version mumber 
int versionNumber () { 
return version id; 


Set the variation mumber 
void variationNumber(int var) { 
variation id =- var: 


get the variation mumber 
int variationNumber () { 
return variation id; 


Set the author name 
void AuthorName(char* auth) { 
priv author = auth; 


get the author name 
char* AuthorName()(í( 
return priv author; 


Set the component name 
void CompnentName (char* a_name){ 
theName = a_name; 


get the component name 
char* CompnentName () ( 
return theName; 


set creation time 
time t setCreationDate(); 
get creation time 


time t getCreationDate() { 
return DateCreated; 


set previous version 
void setPrevious version(char* comppath) 
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previous version =. Comppath; 


// get previous_version 
char* getPrevious version()( 
return previous version; 


/7 set next version 
void setNext version(char* comppath) 
( 


next version - comppath; 


) 


char* getNext version()( 
return next version; 


// add a subcomponent 
void addSubcomponent (COMPONENT* otherComponent); 


// add a parent to the parent list 

void addParentComponent (COMPONENT* 
otherComponent) ; 

void replace_subconponent (COMPONENT* my_comp, char 


* comp. name) ; 
// find component 
void find_component (char *thename) ; 


// search the tree for a component 
void find a component (char *thename); 


//search the tree for a parent of a component 
void find, parent(char *thename); 


// get a list of subcomponents 
List* subComponents()( 
return (List*) 
sub component list.Binding(this); 


// reset a list of subcomponents 
void subComponents( List* parts) { 
sub_component_list.Reset (parts, this); 
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// get a list of text objects 
List* TextObjectList () { 
return (List*) 
text_object_list.Binding(this) ; 


// reset a list of text objects 
void TextObjectList( List* parts) { 
text object list.Reset(parts, this); 


// delete the text objects of a COMPONENT object. 
void deleteComponentText(); 


// Display the file names of the files contained in 
// the COMPONENT node 
void getComponentNames () ; 


// Display the file names of the file contained in 
// each COMPONENT of the subtree 
void getComponentSubtreeNames(); 


//Output the contents of an COMPONENT node to files. 
Boolean getComponentSource(char*); 
void getComponentSubtreeSource(char*); 

// Inserts a text object into the COMPONENT node. 
void addTextObject (TEXT OBJECT *); 

void replaceTextObject (TEXT OBJECT 

*my text object); 
// Output the .ps,.spec,..and .a files contained i 


// in the COMPONENT node. 
Boolean getPSfile(char*); 


Boolean getGRAPHfile(char*); 
Boolean getSPECfile(char*); 
Boolean getIMPfile(char*); 
Boolean getSOURCEfile(char*); 


char getťtTEXTPtr (chart); 
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/ / Destructor for the COMPONENT class. 
~COMPONENT() ( 
Destroy (FALSE); 
Uu 
be 


class Sequencer : public Object 

( 

private 
Ine theValue; 

¡DRA 
Sequencer(APL *theAPL); 
Sequencer(char* a, name); 
Type *getDirectType(); 


//increment the sequencer and return the new value. 
int getValue(); 
// read the value of the sequencer (how many 
// variation a component has) 
int readValue() { 
return theValue; 


DS 
Kendif // . COMPONENT H 
component.cxx 3k ok okc ok ok ok ok ok ok ale ade ale ade ale ale ade ade ale aj ade ade ade ale aj aj ade aje ade ale ade ak ak ak ak ak ake ak ale ale ade ade ade ale ale ak ak ak ade aje aje ade ale ox 


#ifndef | DDBDEFINES.H 
#include "ddbdefines.h" 
#endif 


#include <Type.h> 

include <Object.h> 
#include <GlobalEntities.h> 
#include <Database.h> 
#include <Directory.h> 


extern "C" 


( 
char *getenvíconst char *); 
#include <strings.h> 


} 


#ifndef _ COMPONENT_H 
#include "component.h" 
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#endif 


//extern userPtr; 

extern char *thepath; 
extern char *dirNamePtr; 
extern COMPONENT* compPtr; 


// ONTOS required constructor // 

Sequencer: :Sequencer(APL *theAPL) :Object (theAPL) 
{ 

} 


Dës Creates a Sequencer 

Sequencer::Sequencer(char* name):Object (name) 

{ 
initDirectType( (Type* )OC_lookup ("Sequencer") ) ; 
//directType(getDirectType()); 
theValue-1; 

} 


Type* Sequencer: :getDirectType() 
{ 


return (Type*)OC_lookup ("Sequencer") ; 
} 


int Sequencer: :getValue () 

{ 
theValue = theValue +1; 
return theValue; 


COMPONENT: :COMPONENT (APL *theAPL) : 
Obj ect (theAPL) 

{ 

} 


E Creates a list to hold text objects, then reset a 
reference 
iy to point to Ge last. 


COMPONENT: : COMPONENT (char* name,int var, int ver): 
Object (name) 
{ 
initDirectType( (Type*)OC_lookup ("COMPONENT") ) ; 
version, id = ver; 
variation, id - var; 
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theName - Name(); 
priv author 0, 
char *userPtr = getenv ("USER"); 
if (userPtr) { 

priv_author = new char 

[strlen(userPtr)+1]; 
if (priv author) 
Strepy (priveauthor, userPtr); 


DateCreated = setCreationDate(); 
previous_version=0; 
next_version=0; 
part_of_list.Init (new 


Bist((Type*)OC_lookup ( "COMPONENT")), this); 
sub_component_list.Init (new 


List ( (Type* )O0C_lookup ("COMPONENT") ),this) ; 
used_by_list.Init (new 


List ( (Type* )OC_lookup ("COMPONENT") ),this); 
text_object_list.Init (new 


ese irype~ )OC_lookup( °TEXT_OBJECT")), this) ; 
} 


// Member Functions // 
UL returns the ONTOS Type for the COMPONENT class. 


Type *COMPONENT::getDirectType() 
( 

return (Type*)0C_lookup ("COMPONENT"); 
) 


void COMPONENT::putObject(OC Boolean deallocate) 
( 
//saves structure of the component lists 
Mist ipar: or list Binding(this)) 
-»putObject(FALSE); 
MNSe* sub components list. Banding (this) ) 
-»putObject (FALSE) ; 
((List*)used by list.Binding(this))- 
»putObject (FALSE); 
Gist text object list-Binding(this)) 
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>putObject (FALSE) ; 
// saves the component itself 
Object: :putObject (deallocate) ; 


} 


void COMPONENT: :deleteObject (OC_Boolean deallocate) 
{ 
//deletes structure of the component lists 
((List*)part_ of list.Binding(tChis)) 
->deleteObject (deallocate) ; 
((List*)sub_component_list.Binding(this)) 
~>deleteObject (deallocate) ; 
((List*)used_by_list. Binding (this) } 
~>deleteObject (deallocate) ; 
( (List*)text_object_list.Binding (this)) 
-»deleteObject(deallocate); 
// deletes the component itself 
Object: :deleteObject (deallocate) ; 


void COMPONENT: :Destroy(OC_Boolean aborted) 

{ 
ENn@1Cy emt 
ent = part _of_list Binding(this); 
delete ent; 
ent = sub_component_list.Binding(this) ; 
delete ent; 
ent = usedmby list: Bindame (this) - 
delete ent; 
ent = text_object_list.Binding(this); 
delete ent; 
1f (aborted) Object: 


Destroy (aborted) ; 
} 


// set creation time 
time t COMPONENT: :setCreationDate() 
{ 
time _t *myilise =0; 
time_t theTime; 
return theTime = time(mytloc) ; 


} 


// delete the text objects of a COMPONENT object. 
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void COMPONENT::deleteComponentText () 

( 
List *my list -  TextObjectList(); 
ListlIterator my iterator(my list); 
TEXT OBJECT *the text object; 


while(my. iterator.moreData()) 
( 
the text, object - 
(TEXT OBJECT) (Entity*)my_iterator(); 
the_text_object -> deleteObject(); 
} 
} 
// check if the conponent name matches certain string 
void COMPONENT: :find_component (char *thename) 
( 
char* nameptr=0; 
nameptr = CompnentName () +strlen(CompnentName ())- 
strlen(thename) ; 
if (strcmp( nameptr, thename) ==0) 
thepath=CompnentName() ; 
} 


void COMPONENT: :find_a_component (char *thename) 
{ 
find_component (thename) ; 
if(thepath-- 0) 
( 
Dacos sr - 
(Grist eub component _list.Binding(this}; 
ListIterator my_iterator (my_list); 
COMPONENT *theComponent; 
while(my iterator.moreData()) 
( 
theComponent - 
(COMPONENT*) (Entity*)my iterator(); 
theComponent - 
>find_a_component (thename) ; 
} 
i 
} 


void COMPONENT: :find_parent (char *thename) 


{ 
List *my_list = 
(List*)sub_component_list.Binding(this); 
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ListIterator my iterator (my list); 
COMPONENT *theComponent ; 
while (my_iterator.moreData() ) 
{ 
theComponent = 
(COMPONENT* ) (Entity*)my_iteratonige 
if (strcmp (theComponent 
->CompnentName(),thename) ==0) 
{ 
GOMpPer— wens. 
return; 
} 
else 
theComponent - 
>find_parent (thename) ; 
) 
) 


//Displays the name of each text object in a COMPONENT object. 
void COMPONENT: :getComponentNames () 
{ 
cout << Name() <<"\n"; 
List *my list = 
(List*)text obaeet rst Banding (ens). 
ListIterator my. iterator (my. list); 
TEXT OBJECT *the text object; 


while (my iterator.moreData()) 
( 
the text object - 
(TEXT OBJECT*)'(tEntatv*)m—rueratem E 
the text object -»- displayFileName(); 
) 


void COMPONENT: :getComponentSubtreeNames ( ) 
{ 
getComponentNames () ; 
List *my_list = 
(List*)sub component, list.Binding(this); 
ListIterator my iterator(my list); 
COMPONENT *theComponent; 
while(my iterator.moreData()) 
( 
theComponent = 
(COMPONENT*) (Entity) iyo 1@eraror (i). 
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theComponent - 


»getComponentSubtreeNames(); 


} 
} 


Boolean COMPONENT: :getComponentSource(char *fileMode) 


( 


est my last. = 

Oost) ext object_Mst.Binding(this)*% 
ListIterator my_iterator(my_list); 
TEXT OBJECT *the. text, object; 
Boolean write failed = FALSE; 
while(my iterator.moreData()) 


( 


} 


the_text_object = 

ETE XN BS REeTE Enc jimmy rteratort); 

if (!the text, object -» 
rebuildTextFile(fileMode)) 
write failed - TRUE; 


If (write failed) 


else 


} 


void COMPONENT: : 


{ 


return FAILED; 


return SUCCESS; 


getComponentSubtreeSource(char *fileMode) 


getComponentSource(fileMode); 
Dist ‘my list = 

wete sub_component_list.Binding (this); 
ListIterator my_iterator(my_list); 
COMPONENT *theComponent ; 
while(my iterator.moreData()) 


( 


void COMPONENT: : 
{ 


theComponent = 

(COMPONENT*) (Entity*)my iterator(); 
theComponent 
-»getComponentSubtreeSource(fileMode); 


addTextObject (TEXT OBJECT *my text object) 
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List *my list HEEM 
my list -» Insert (my text object); 
ry list --» putObject(); 


void COMPONENT: :replaceTextObject (TEXT_OBJECT 
*my_text_object) 
{ 

OC_Boolean FOUND=FALSE; 

char *a_name=new char[strlen(my text object 


->getFileName())+1]; 
strcpy(a name, my text object-»getFileName()); 
// cout <<"new: " << a_name <<"\n"; 


List *my_list = Text@bjecthist Uy 

ListIiterator my_iterator(my_list) ; 

TEXT OBJECT* a. teer obyect; 

while(my. iterator.moreData()&& !FOUND) 

( 
a text object - 
(TEXT-OBJECT*)(Entity*)my iteratonm 
char *a_namel=new 

char [strlen(a_text_object 
-»getFileName())-41]; 

strcpy(a namel, a text object 


-»getFileName()); 
L cout ««"old: " «« a namel «E 
1f (strcmp(a_name, a_namel) ==0) { 


my list-»-Remove (my. list 


-Index(a, text. object)); 
my list- 
-Insert (my text, object); 
FOUND = TRUE; 
) 
) 
mycliste- doute 
putObject (); 


Boolean COMPONENT::getPSfile(char *fileMode) 
( 
List *my liste= 
(List*)text object list.Binding (this); 
ListIterator my iterator(my. list); 


while(my iterator.moreData()) 
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TEXT OBJECT "the text object = 
(TEXPOBIEC CT) (Entity my -iterator (}); 
char *the_file_name = the_text_object 

-»getFileName(); 
the file name-(the file name - 


(strlen(the text object- 
>getFileName () ) 


E; 
mic ciuremputbesrlemnmame,".'ps")sz0) 
( 
if (the text, obgject 
-»rebuildTextFile(fileMode)); 
return SUCCESS; 


Boolean COMPONENT::getSPECfile(char *fileMode) 
( 


List “my list -= 
(List*)text_object_list.Binding (this); 

ListIterator my_iterator (my_list)}; 

while(my iterator.moreData()) 

( 
TEXT_OBJECT *the_text_object = 
(TEXT OBJECT) Entity my iterator (); 
char *the_file_name = the_text_object 

-»getFileName(); 

the file name-(the file name + 


(strlen(the text object-»getFileName())- 
eg) 5 


if(strcmp(the file name,".spec.psdl")--0) 
( 
if (the text obgject 
-»rebuildTextFile(fileMode)) 


return SUCCESS; 
else 


return FAILED; 
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Boolean COMPONENT::getGRAPHfile(char *fileMode) 
( 
List *my list z 
(bDist*)texto^obygect 9n stone iia s) 
ListIterator my iterator (my. list); 
while (my. iterator.moreData()) 
( 
TEXT OBJECT *the*text9"obaecta 
(TEXT_OBJECT* ) (Entity* )my_i1terdtemien 
char *the file name - the. text, object 
-»getFileName(); 
the file name-(the file name + 
(strlen(the text, object-»getFileName())- 


if(strcmp(the,. file name,".graph")zz0) 
( 
if (the text, object 


>rebulldTextFile(fileMode)) 
return SUCCESS 
else 
return FATLED; 


Boolean COMPONENT: :getIMPfile(char *fileMode) 
( 
List “17 2st. = 
(List*)text_object_list.Binding (this); 
ListIterator my. iterator (my. list); 
while(my iterator.moreData()) 
( 
TEXT OBJECT *the text object = 
(TEXT OBJECT*) (Entity*)my Jteratormn9E 
char *the file name - the, text. object 
-»getFileName(); 
the file name-(the file name + 
(strlen(the text object-»getFileName())- 


1f(strcmp(the_file_name,".imp.psdl")==0) 
( 
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if (the. text. object 
-»rebuildTextFile(fileMode)) 
return- SUCCESS; 
else 
return FAILED; 


Boolean COMPONENT: :getSOURCEfile(char *fileMode) 
( 
List ‘my list = 
(List*)text_object_list.Binding (this); 
ListIterator my_iterator(my_list); 
while (my_iterator.moreData() ) 
{ 
TEXT_OBJECT *the_text_object = 
(TENIA BIESCAS jay iteratorí); 
char *the file name - the text object 
-»getFileName(); 
the file. name-(the. file name + 
(strlen(the text object-»getFileName())- 


if(strcmp(the file name,".a")--0) 
( 
if (the text, object 
-»rebuildTextFile(fileMode)) 
return SUCCESS; 
else 
return FAILED; 


char *COMPONENT: :getTEXTPtr(char *TextType) 
{ 


Pese st = 
gu texteobject. list.Binding (this); 

ListlIterator my  iterator (my list); 

while(my iterator.moreData()) 

( 
TEXT OBJECT *the text object - 
(UPEXPSOBJESTSNSEntity*)mywerjterator(); 
char *the file name - the text object 
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-»getFileName(); 
char *the file=(the_file name + 
(strlen(the_text_object- 
>getFileName () ) 


(strlen(TextType)))); 
if (strcmp(the. file, TextType) zz0) 
( 
return the text object- 
>text (); 
} 
} 


return (charro 


// add a subcomponent 
void COMPONENT: :addSubcomponent (COMPONENT* otherComponent) 
{ 
List child nodes MNES ER) 
sub_componeėrñt_list.Binding (thiis 


se ENIS) 
{ 
COUb <<- "<ERROR: cannot adala 
subcomponent to a null component\n"; 
return; 
) 
if ('child nodes) 
( 
cout << "<ERROR: cannot add amu 
subcomponent to a componentin"; 
return; 


) 


child nodes-»Insert(otherComponent); 
child, nodes-»putObject(); 
putObject(); 

} 


void COMPONENT: :replace_subconponent (COMPONENT* my_comp, 
char* comp_name) 
{ 
OC_Boolean FOUND=FALSE; 
char* salah=new char[strlen(comp_name)+1]; 
strcpy (salah, comp_name) ; 
CH cout ««'"comp:; tee Jee i; 
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List m list = (Liste *) 


sub component list.Binding (this); 
ListlIterator my iterator(my list); 
while(my iterator.moreData() && !FOUND) ( 
COMPONENT* a comp = 
(COMPONENT*) (Entity*)my iterator(); 
char* test-za. comp 
-»CompnentName()-«strlenía, comp 


->CompnentName())-strlen(salah) ; 
i cout. < Mola. <<test.<<' a”; 
1f(strcmp(test, salah)==0)( 


my_list->Remove(my_list 

-»Index (a, comp)); 
my list-»-Insert (my. comp); 
FOUND? = TRUE: 


} 


void COMPONENT: :addParentComponent (COMPONENT * 
otherComponent ) 
{ 
List *parent_nodes = (List 
bodman or list.Binding(this) ; 
ME this) 
{ 
cout << "<ERROR: cannot add a 
subcomponent to a null component\n"; 
return; 
} 
if (!parent nodes) 
( 
cout «« "«ERROR: cannot add a null 
subcomponent to a component Mn"; 
return; 
) 
parent nodes-»Insert(otherComponent); 
parent nodes-»putObject(); 
putObject (); 
} 


comp Operations h Ade ade ale ale ale ale oe ok ok aje ade ade ale aje aje aje aj aje ae aje ade ade ade oK oe ok oe ok oe ok ok ok ale ale ale ale ale ale aja ade ade ade ade ale ade ale ale aje ade aje ade ook 


tifndef , COMP OPERATIONS H 
#define | COMP OPERATIONS H 
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#include"component.h" 


char* get_last_token(char* comp_name) ; 

char* get_red_of_extras(char* comp_name, char* a_name) ; 

OC Boolean set New prototype Directory(char* aName); 

OC Boolean set new component dir(char* aName); 

OC Boolean set new version dir(char* aName, int var, int 
ver); 

void Add. SubComponent(char* dbName,char* namel,char* 

a name2,char* a, name23); 

void CreateComponent(char* aName,int var, int ver); 

void ShowComponent subtree(char* dbName,char* namel, char* 
aName) ; 

void ShowComponent, subtree(char* namel, char* aName); 

void ShowComponent(char* dbName,char* namel, char* aName); 
void DeleteComponent(char* dbName,char* namel,char* aName); 
void DumpComponent (char* namel,char* aName) ; 

void CreatePrototype(char* dbName,char* aName) ; 

void find component path(char* comp name, char* a, name); 
void Find Parent(char* protoname,char*comp name); 
COMPONENT* Add new version (char* protoname,char*comp name); 
void DumpComponent, subtree(char* dbname,char* 
protoname,char* comp name); 

void Show prototypes(char* dbName); 

void find version, path(char* protoname,char*comp name); 
void Dump version(char* dbname, char* protoname,char* 

comp name); 

char* generate new configuration(char* protoname, COMPONENT* 
my comp), 

void Dump Imp File(char* dbname, char* protoname,char* 
comp name); 

void Dump. Spec File(char* dbname, char* protoname,char* 
comp name); 

void Dump Imp Filel(char* protoname,char* comp name); 

void Dump Spec Filel(char* protoname,char* comp. name); 
void Show component versions(char* dbname,char* 
protoname,char*comp name); 

#endif  //COMP OPERATIONS H 


comp Operations. cxx ®t d a EE EEN 


#include <Database.h> 
tinclude <Directory.h> 
include <string.h> 
tinclude <stream.h> 
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include 
include 
#include 
#include 
#include 
// Globa 


"LtextWobject.h" 

"component .h" 

SMV See ne ae 

"comp Operations.h" 

"Step Operations.h" 
ls 


extern char *dirNamePtr; 


extern 
extern 
extern 


char* DESIGN DATABASE DIRECTORY; 
char* thepath ; 
chal” v path > 


extern COMPONENT* compPtr; 


Sale char *my_exti[5)=(".spec.psdl", ".imp.psdl", " 
" graph" , u E 
char* get last, token(char* comp. name) 


( 


char *separator=">"; 
Char sword; 
Char* word2; 
wordl=strtok(comp_name, separator); 
while(word1 !=NULL)({ 
Word =W0 ral 
wordlzstrtok(NULL, separator); 
) 


meturnm word2; 


) 


char* ge 


( 


spe. 


t red of extras(char* comp name, char* a name) 


char *salah=new char[strlen(comp_name) +1]; 


strcpy (salah, comp_name) ; 
char *badr= new char[strlen(a_name) +1]; 
strcpy (badr,a_name) ; 
int n =strlen(salah) -2*strlen(badr) -4; 
char* word2=new char([n+1] ; 
strncpy (word2,salah,n) ; 

word2 [n+1)]='X0'; 


mpetorn word2; 


) 


ova Cre 


( 


atePrototype(char* dbname, char* aName) 


OC. open (dbname) ; 
OC transactionStart(); 
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if (set New prototype Directory (aName)) 
CreateComponent( aName,1,1); 
OC transactionCommit (OC, doNothing); 
OC. close(); 
) 


void CreateComponent (char* aName, int var, int ver) 
{ 
cout << "Creating a COMPONENT: " << aName << " 
m s 
COMPONENT  *my component = new 
COMPONENT (aName, var,ver); 
Jut i; 
for(i=0; i<=4;++1)( 
My String templ(My String(dirNamePtr)- 
My String("/")«My String(aName)- 
My String(m DE 
char *temp2- (char*) templ; 
My_String temp3 (My_String (aName) + 
My String(my ext[1i])); 
char *tempá- (char*) temp3; 
ifstream myFile(temp2); //=(char*)0; 
if (myFile) { 
TEXT OBJECT *a_text_obj; 
a_text_obj= new TEXT_OBJECT(); 
a text obj-»append(temp4, myFile); 
my_ component - 
-addTextObject (a text obj); 
) 


) 
my component-»putObject(); 


void Add SubComponent(char* dbname, char* 
protoname,char*comp name,char* parent) 

{ 

OC_open (dbname) ; 

OC transact ionstart(); 

char temp[64]; 

int ver, var; 

find component. path(protoname,parent); 

if(thepath !z0)( 

sscanf (comp_name,"%s %d:%d",temp,&var, &ver); 

My String ptrl= My_String(7°")+ (My sstring(enevathiin 
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My String(parent)); 
Ghat pEr- (Char) pEr; 
Dir occorra directory | Directory”)0C€_lookuplptr); 
if(a directory)( 
OC setWorkingDirectory(a directory); // 
Mellar*)the dir); 
if(set new component dir(comp name))í 
"n cout << "these are the values " << ver << var 
Eton", 
CreateComponent (temp, var,ver); 
COMPONENT *my_component1 = (COMPONENT* ) 
OC_lookup (temp); 
Char MY Oomp = 
strcat (my_comp, thepath) ; 
COMPONENT *my_component2 = (COMPONENT* ) 
OC, lookup(thepath); 


na, 
f 


if (my. component1-zNULL) 

cout <<" There is no such a component An"; 
else( 

if (my component2-zNULL) 

cout ««" There is no such parent component n"; 
else{ 

my_component2->addSubcomponent (my_componentl1) ; 
my_componentl- 

>addParentComponent (my_component2) ; 


} 


} 
} 


else 
cout «« "there is no such parent directory Mn"; 


) 


else 
cout «« "there is no such parent component Ives 
OC transactionCommit (OC doNothing); 


OC close(); 


COMPONENT* Add new version( char* protoname,char* p name) 


( 


char* comp name- new char[strlen(p name)-«1]; 
strcpy(comp name,p name); 
My String temp3 (My String(comp name)- 
My String("_seq")); 
char *temp2= (char*) temp3; 
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int ver, var: 
find_component_path(protoname, comp_name) ; 
1f(thepath !=0) { 

My_String ptrl= My_String("”")+(My_String(thepavii 


My String(comp. name)); 


char *ptr=" (chara oem 
COMPONENT *my_componentl = (COMPONENT* ) 


OC lookup(thepath); 


SÉ 


1£ (my component != NULL) ({ 
ver = my_componentl->versionNumber ()+1; 
OC_setWorkingDirectory (ptr); 


if (my. componentl-»getNext version()-- 0) 
var - my. componentl-»-variationNumber(); 
else( 


Sequencer* my sequencer-(Sequencer*)OC lookup(temp2); 
1f (my_sequencer!= NULL) { 
var = my_sequencer->getValue(); 
my _sequencer->putObject (); 
} 
} 
OC setWorkangDarectory (ptr); 
if( set, new, version, dir(comp name, var,ver))( 
CreateComponent (comp. name, var, ver); 
COMPONENT *my_component2 = (COMPONENT?) 
OC_lookup (comp_name) ; 
if (my componentl-»getNext version()-- 0) 
my componentl-»setNext version(my component2 
-»CompnentName(í)); 
my componentl-»putObject(); 
my component2-»setPrevious, version(my. componentl 
-»CompnentName()); 
List* my list - my componentl1-»subComponents(); 
Iterator* my iterator - my list-»getIterator(); 
// For each item in the iterator 
while(my iterator-»moreData()) ( 
COMPONENT* a, comp- (COMPONENT* ) (Entity*) 
((*my_iterator) ()); 
my_component2->addSubcomponent (a, comp) ; 
) 
my component2-»putObject(); 
return my component2; 
) 
) 
else return NULL; 
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else return NULL; 


char* generate new configuration(char* protoname,COMPONENT* 
my comp) 
( 
int var, ver,varl,verl; 
char temp[64]; 
char temp2[64]; 
char temp3[64]; 
compEtr NULL; 
char* badr= new char[strlen (my_comp- 
>CompnentName ())+1]; 
strcpy (badr,my. comp-»CompnentName()); 
char* salahl-get, last, token (badr); 
char* comp_namel=new char[strlen(salahl1) +1]; 
strcpy (comp, namel,salahl); 
sscanf (protoname, "%s",temp) ; 
if (strcmp (comp_namel, temp) ==0) { 
varl = my_comp->variationNumber() ; 
verl - my comp-»versionNumber(); 
sprintf(temp3,"£s £d:$d",temp, varl, verl); 
return temp3; 
) 
else{ 
char* a name- my. comp-»getPrevious, version(); 
Find. Parent (protoname, a. name); 
if(compPtr !=NULL) { 
ver = compPtr->versionNumber()+1; 
char* ptrl-new char[strlen(compPtr- 
>CompnentName ())+1]; 
strcpy (ptr1, compPtr->CompnentName ()); 
char* salahzget, last, coken(ptr1); 
char* comp name-new char[strlen(salah)-«1]; 
strcpy (comp. name, salah); 
My String temp- My String("^")«-(My String(compPtr 
-»CompnentName())-My. String(comp. name)); 
char* ptr=(char*) temp; 
busreoctom c emesdpsr-iDMrectory*)OC lookup(íptr); 
if w dir){ 
OC. setWorkingDirectory (my dir); 


if(compPtr-»getNext version()-- 0) 
var = compPtr->variationNumber() ; 
else{ 


sprintf(temp2,"£s£s",comp name," seq"); 
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Sequencer* | 
my sequencer-(Sequencer*)OC, lookup(temp2) ; 
if (my sequencer!- NULL)( 
var - my sequencer-»getValue(); 
my_sequencer->putObject (); 
} 
} 
1f (set_new_version_dir(comp_name,var,ver)) 
( 
COMPONENT  *my component - new 
COMPONENT (comp. name, var,ver); 
my component-»TextObjectList(compPtr 
->TextObjectList()); 
if (compPtr->getNext_version()== 0) 
{ 
comp Ptr->setNext_version (my_component 
->CompnentName ()); 
compPtr-»putObject(); 
) 
my_component->setPrevious_version(compPtr 
->CompnentName ()); 
List* my list - compPtr-»subComponents(); 
Iterator* my iterator - my list-»getIterator(); 
// For each item in the iterator 
while(my iterator-»moreData()) { 
COMPONENT* a, comp- (COMPONENT*) (Entity*) 
((*my iterato Nm PE 
my component--»addSubcomponent (a, comp) ; 
) 
my__component - 
>replace_subconponent (my_comp, comp_namel); 
my component-»putObject(); 
generate new configuration(protoname,my component); 
) 
} 


else cout <<" no such "ir aper << nn. 


} 


else cout << "no such@eemp: 4 acname cu 


} 


void ShowComponent (char* dbname, char* 
protoname, char*comp_name) 


{ 
OC_open (dbname) ; 
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OC transactionStart(); 
find_component_path (protoname,comp_name) ; 
1f(thepath !=0) { 
COMPONENT *my component- (COMPONENT*) 
OC. lookup(thepath); 
1f (my_component== NULL) ( 
cout << "Object: " << comp_name <<" Snot, in 
PUE. Ain”; 
) 
else{ 
my_component->getComponentNames () ; 
} 
} 
OC_transactionCommit (OC_doNothing) ; 
OC. close(); 
) 


void ShowComponent_subtree(char* dbname, char* 
protoname, char*comp_name) 
{ 

OC_open(dbname) ; 

OC_transactionStart (); 

find_component_path(protoname, comp_name) ; 

if (thepath !=0){ 

COMPONENT *my_component= (COMPONENT*) 
OC_lookup (thepath) ; 

1f (my_component== NULL) ( 

cout << "Object: " << comp_name <<" Sot. in 
EBEN in"; 

) 

else( 

my component-»getComponentSubtreeNames(); 
) 

) 
//ShowComponent subtree(protoname,comp. name); 

OC. transactionCommit (OC. doNothing); 

OC. close(); 


void DeleteComponent(char* dbname, char* protoname, 
char* comp name) 
( 
OC_open (dbname) ; 
OC transactionStart(); 
find component, path(protoname, comp. name); 
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if(thepath !=0) { 
COMPONENT *my_component= (COMPONENT* ) 
OC_lookup(thepaen 
if (my_component== NUL 
cout << "Object: " << comp name ee! is not im 
IR EE e E 
else( 
my component-»deleteComponentText(); 
my component--»deleteObject (FALSE); 
} 
} 
else 
cout << "there is no such component Ain"; 
OC transactionCommit(OC doNothrng)*S 
OC. close(); 


void DumpComponent(char* protoname,char* comp name) 
( 
find component, path(protoname,comp. name); 
if(thepath !=0) { 
COMPONENT *my_component= (COMPONENT* ) 
OC lookup(thepath); 
if (my componentz- NULL) 
cout << "Object: ” << comp_name <<" is not ag 
DOB TAANE 
else{ 
my_component->getComponent Source ("w") ; 
} 
} 
else 
cout << "there is no such component An"; 


void Dump_Imp_Filel(char* protoname,char* comp_name) 
( 
find component path(protoname, comp. name); 
1f(thepath !=0)( 
COMPONENT *my_component= (COMPONENT*) 
OC lookup(thepath); 
if (my component-- NULL) 
cout << "Object: " << comp_name <<" is not an 
EE, me 
else{ 
my_component->getIMPfile("w"); 
} 
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) 
else 
cout «« "there is no such component Mn"; 


void Dump Spec Filel(char* protoname,char* comp. name) 
( 
find, component path(í(protoname,comp name); 
1f(thepath !=0) { 
COMPONENT *my_component= (COMPONENT* ) 
OC lookup(thepath); 
if (my component-- NULL) 
cout << "Object: " << comp_name <<" PS noe in 
Puerca"; 
else{ 
my_component->getSPECfile("w"); 
) 
) 
else 
cout << "there is no such component An"; 


void DumpComponent subtree(char* dbname, char* 
protoname,char* comp name) 

( 

OC_open (dbname) ; 

OC transactionStart(); 

find component path(protoname,comp. name); 

if(thepath !=0) { 

COMPONENT *my_component= (COMPONENT* ) 
OC_lookup (thepath) ; 

if(my component-- NULL) 


cout << "Object: "x< comp name <<" mognot Xn 
BERE H 
else 
Dm component-»getComponentSubtreeSource("w"); 
) 
else 


cout << "there is no such component An"; 
OC_transactionCommit (OC_doNothing) ; 
OC_close(); 


void Dump_version(char* dbname, char* protoname, char* 
comp_name) 
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OC_open (dbname) ; 

OC_transactionStart (); 

find, version path(protoname,comp name); 

If (Vv patne on 

17 cout <<; V pathi: e Uum 

COMPONENT *my_component= (COMPONENT*) 
OC looküupiv spam 

if (my. component-z- NULL) 

cout << "Object: " << comp_name <<" is notin 
DEB UE 


else 
my_component->getComponent Subt reeSource ("w") ; 


} 
else 
cout e "there is no such component Ain"; 
OC transactionCommit (OC, doNothing); 
OC. close(); 


) 


void Dump Imp File(char* dbname, char* protoname,char* 
comp name) 


( 
OC. open ( dbname) ; 


OC transactionStart(); 

find version, path(protoname,comp. name); 

if (Vv path 0) 4 
Iy Coe - vespaths cq E 

COMPONENT *my_component= (COMPONENT*) 
OC. lookupiv s path). 

if (my. conmponent-- NULL) 

cout << "Object: “=< comp_name <<“ is notin 
DETE E 

else 

my_component->getIMPfile("w") ; 


) 


else 
cout «« "there is no such component In"; 


OC transactionCommit (OC doNothing); 
OC. close(); 


void Dump Spec, File(char* dbname, char* protoname,char* 
comp name) 
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OC_open (dbname) ; 

OC_transactionStart (); 

find, version, path(protoname,comp name); 

if(v_path !=0)( 
"i cout path << "No"; 

COMPONENT *my_component= (COMPONENT* ) 
Sen lookup (v_path) ; 

1f (my_component== NULL) 

cout << "Object: " << comp_name <<" 1S not in 
PORTAN"; 

else 

my_component->getSPECfile("w"); 


} 
else 
cout << "there is no such component Ain"; 
OC transactionCommit (OC, doNothing); 
OC. close(); 


) 


OC Boolean set, New prototype Directory(char* aName) 
( 
// char dir name[64]; 
BENBectory *prototype dir s (Dairectory*)0; 
ENectory *ddbRootDuir = (Directory*)0; 
I|urncctory *ceoómp dir-(Directory*)0; 
HaRSoOotDir = (Directory *) 
OC_lookup (DESIGN_DATABASE_DIRECTORY) ; 
mu dbRootDir) 
OC setWorkingDirectory (ddbRootDir); 
else 


( 
ddbRootDir = new Directory (DESIGN DATABASE DIRECTORY); 


ddbRootDir -> putObject(); 
OC_setWorkingDirectory (ddbRootDir) ; 
} 
My String temp (My_String(aName) +My_String("_dir")) ; 
char* dir_name=(char*) temp; 
prototype_dir= (Directory *) OC_lookup(dir_name) ; 
if (prototype_dir) 
( 
/ /OC, setWorkingDirectory (prototype dir); 
cout << "Prototype: " << aName << " already existin"; 
return FALSE; 
) 
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else ( | 
prototype dir - new Directory(dir name); 
prototype dir -» putObject(); 
OC setWorkingDirectory(prototype dir); 


My String 
templ(My String(aName)-«My String(" seq")); 
char* seq name - (char*) templi; 
Ff cout ««"Seq name: " «« seq name ««"Mn"; 


Sequencer* my sequencer- new Sequencerí(í(segq name); 
my_sequencer->putObject (); 
My String temp2 (My String(aName)-«My String("11")); 
char “DPD dar = char” tener 

comp_dir = new Directory (p dirt); 

comp dir -» putObject(); 

OC. setWorkingDirectory (comp. dir); 

return TRUE; 

} 

) 


OC Boolean set new component dir(char* aName) 
( 
int myver=0; 
int Ol, 
char tempí[64]; 
char templ1[64]; 
char temp2[64]; 
sscanf (aName, "%s £d:£d", temp,&myvar, &myver); 
Sprintf(templ,"£€s$d$d", temp,myvar,myver); 
sprintf(temp2,"$s$s", temp, " dir"); 
Directory *comp_dir= (Barectory *)eOC Iookup(temp E 
lf (oompsdgs) 
( 
//OC..setWorkingDirectory (comp. dir); 
cout << "component: " «« temp ««" already existin"; 
return FALSE; 
) 
else 
( 
comp dir - new Directory (temp2); 
comp dir*-» putObjecti); 
OC, setWorkingDirectory (comp. dir); 
// create a sequencer object 
char seq name[64]; 
sprintf(seq name,"£s£s",temp," seq"); 
Sequencer* my sequencer- new Sequencerí(í(seq name); 
Itly sequencer-»putObject(); 
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) 


7/COUG =< “the new veemponent_dir: " << temp2 <<"\n"; 
Directory *version_dir= new Directory (temp1) ; 
version_dir -> putObject(); 

OC_setWorkingDirectory (version_dir) ; 

return TRUE; 

) 


OC Boolean set new version dir(char* aName, int var, int ver) 


( 


LE 


char temp1[64]; 
sprintf(templ,"£s£ad$d", aName,var,ver); 
rectory *version- drir- (Directory *) OC_lookup(temp1) ; 
if(version, dir) 
( 
OC, setWorkingDirectory (version. dir); 
cout «« "version dir: " «« templ ««" already existin"; 
return FALSE; 
) 
else 
( 
version, dir = new Directory (templ); 
version. dir -» putObject(); 
OC, setWorkingDirectory (version dir); 
cout << “the new version dir: " << templ <<"\n"; 
return TRUE; 
} 


void find_component_path(char* protoname, char*comp_name) 


{ 


char dir name[64]; 
char temp[64]; 


thepath=0; 

int ver, var; 

Directory *prototype dir - (Directory*)0; 
BNrectory *ddbRootbDQir - (Directory*)0; 
Directory *comp_dir=(Directory*)0; 
SaoROOtDir = (Directory *) 


OC_lookup (DESIGN_DATABASE_DIRECTORY) ; 


E (ddbRootDir) 


( 
OC, setWorkingDirectory(ddbRootDir); 


) 
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else{ 
cout << "there is no* database as: "<< 
DESIGN_DATABASE_DIRECTORY <<"\n"; 


return; 
} 
sscanf(protoname, "£s $d:$d", temp, &var, &ver); 
sprintf(dir name,"s£s", temp," dir"); 


prototype dir- (Directory *) OC lookup(dir. name); 
if (prototype dir) 
( 
OC. setWorkingDirectory(prototype dir); 
} 
else! 
cout << "there is no™prototype as: "<< dir name 2000 
returns; 
) 
sprintf(dir_name, "%s%d%d", temp, var,ver); 
comp dir= (Directory ~) 0C_ lookup (die iamne): 
T ENCORE 
( 
cout «« "there is no such version as: "«« temp «« var 
LL NET LCUN 
return; 
) 
else! 
OC setWorkingDirectory (comp. dir); 
COMPONENT* my_component= (COMPONENT*)0C_lookup (temp) ; 
my_component->find_a_component (comp_name) ; 
} 
} 


void Find Parent(char* protoname,char*comp name) 
( 

char dir name[64]; 

char temp[64]; 


thepath=0; 

int ver, var; 

Directory *prototype dir- (Drrectom 0% 
Directory *ddbRootDir EEN 
Directory *comp dir= (P ectkory 0: 
ddbRootDir = (Dirc cor AN 


OC, lookup (DESIGN DATABASE DIRECTORY); 
if (ddbRootDir) 


( 
OC setWorkingDirectory (ddbRootDir); 


) 
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else{ 
cout<<"there is no database as: 
"<<DESIGN_DATABASE DIRECTORY <<"\n"; 
return; 
) 
sscanf(protoname, "£s $d:$d", temp, &var, &ver); 
Emote (dir name, "sts", temp,“ dir"); 
meorotype dir= (Directory *) OC_lookup(dir_name) ; 
EN prototype dir) 
( 
OC. setWorkingDirectory (prototype dir); 
) 
else( 
cout «« "there is no prototype as: "«« dir name <<"\n"; 
return; 
) 
sprintf (dir_name, "3s3d3d", temp, var,ver); 
enp dir= (Directory *) 0C_lookup(d1r_name); 
acom. dir) 
( 
cout «« "there is no such version as: "«« temp «« var 
Ever «-"An": 
return; 
) 
elsel 
OC. setWorkingDirectory (comp dir); 
COMPONENT* my_component=(COMPONENT*)0C_lookup (temp) ; 
my_component->find_parent (comp_name) ; 


) 


void find, version, path(char* protoname,char*comp name) 
{ 
char tempí64]; 
int ver, var; 
sscanf(comp_name, "%s %d:%d", temp, &var, &ver); 
find_component_path(protoname, temp) ; 
1f(thepath !=0) { 
My String templ (My_String(thepath) -My_String(temp) ) ; 
chart ptr- (char) tempi; 
char the comp[2560]; 


sprintf(the comp,"£s£$s$s$std$d","^",ptr,"»-",temp,var,ver); 
My String temp2 (My. String(the, comp)- 
My String("»")«My String(temp)); 
v path- (char*)temp2; 
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) 
else 
cout ««"there is no such component: " << tem SA 


void Show prototypes(char* dbname) 
{ 

OC_open (dbname) ; 

OC transactionStart(); 

Directory *“ddbReotDir = (Directory O0; 
ddbRootDir = (Directory "] 
OC. lookup (DESIGN. DATABASE, DIRECTORY); 

mim ddbkRootbDir==NULE) 

cout << "NO prototypes in DDB yee ne 

else{ 

OC_setWorkingDirectory (ddbRootDir) ; 
DirectoryIterator my iterator(ddbRootDir); 
while (my_iterator.moreData() ) { 

Object* my object - my iterator(); 

char* temp =); 

temps my. object-»Name(); 

char* templ=temp + 9; 

char* temp2 - new char[strlen(templ)-3]; 

strncpy(temp2,templ,(strlen(temp1)-4)); 
temp2[strlen(temp1)-4]='3M0'; 
Gout << temp2 << "Nm" 


) 


OC. transactionCommit (OC doNothing); 
OC. close(); 
) 


void Show, component versions(char* dbname,char* 
protoname,char*comp name) 
( 
OC_open (dbname) ; 
OC transactionStart(); 
find, component, path(protoname,comp name); 
if(thepath !=0) { 
My String templ (My_String("*") +(My_String(thepath) - 
My String(comp name))); 
Chart ptr=(Char") templ, 
Directory *comp_dir=(Direetory *) OC ISokuUp pe 
iE (C Onpa r =- -NUE 
cout << "NO such component in DDB yet Ain"; 
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else( 
OC. setWorkingDirectory (comp dir); 
DirectoryIterator my. iterator(comp. dir); 
while(my iterator.moreData())( 
Object* my object zs my iterator(); 
char* temp =new char[strlen(my_object->Name())+1]; 
strcpy(temp, my object-»Name()); 
char* templ-zget last token(í(temp); 
My String temp2-My String(templ)-2; 
char *temp3 =(charMetempz ; 
if(strcmp(temp3,comp name)--0) 
cont << temple "xm" 


OC transactionCommit (OC doNothing); 
OC_close(); 


maincomp.cxx sk sk ade ale ade al ade ale ade ale al ade ale ade ade ale ade ale ale ade ale ale ade ale ale ok ale ade ale ade ale ale ale ale ale ade ale ale ade ale ale ade ale ade ade ale ale ade ale ae ale ale ale ale ade ale ale ale ale 


include «Database.h» 
include <Directory.h> 
elude «stream.h- 


extern "C" 

( 

melde <stdlib.h> 
#include <stddef .h> 
#include <string.h> 
#include <ctype.h> 
} 


include "comp Operations.nh" 


// Globals 

ela GirNamePtr = "."; 

//char *dbName- "supportDB"; 

char* DESIGN. DATABASE DIRECTORY-"DesignDB"; 
nuc thepath =(char*)0; 

meme v path =(char*)0; 

ESMPONENT* compPtrzNUDL:; 


int main(int argc,char *argv[]) 


( 
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Char: “option: (char Ue 
char *aName=(char*) 0; 
char *aNamel-(char*)0; 
char *dbName-(char*)0; 
char thename[64] ; 

char theothername[64]; 


if (argv[i) 

{ 
dbName - new char[strlen(argv[1])-41]; 
strcpy (dbName,argv[1]); 

) 


if (argv[21» 

( 
option = new Char [strlen (argv[2]17+1Ms 
strcpy (option argv 2n 

) 

opto OS A 
// Create Prototype 

aName = new char[strlen(argv[3])+1]; 

strcpy (aName,argv[3]); 
CreatePrototype(dbName, aName); 


//exit; 

) 

elseuwet (option) @lie==— 2i) 
/ / ShowComponent 


aName = new char[strlen(argv[3])+1]; 
strcpy (aName,argv[3]); 
aNamel = new char[strlen(argv[4])+1]; 
strcpy (aNamel,argv[4]); 
sprintf(thename,"%s %s",aName,aNamel) ; 
aNamel = new char[strlen(argv[5])+1]; 
strcpy (aNamel,argv[5]); 
ShowComponent (dbName, thename, aNamel1) ; 
//exit; 
} 
else iio == 2H 
// show subtree 
aName = new char[strlen(argv[3])+1]; 
strcpy (aName,argv[3]); 
aNamel - new char[strlen(argv[4])-«1]; 
strcpy (aNamel,argv[4]); 
sprintf(thename,"%s %s",aName,aNamel1) ; 
aNamel = new char[strlen(argv[5])+1]; 
strcpy(aNamel,argv[5]); 
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ShowComponent_subtree(dbName, thename, aNamel) ; 


} 


//exit; 


else if(option[0] == '4'){ 


2£s",aName,aNamel); 


//Add subComponent 
aName = new char[strlen(argv[3])+1]; 

strcpy (aName,argv[3]); 

aNamel = new char[strlen(argv[4])+1]; 

strcpy(aNamel,argv[4]); 

sprintf(thename,"£€s £s",aName,aNamel); 

aName = new char[strlen(argv[5])+1]; 

strcpy (aName,argv[5]); 

aNamel = new char[strlen(argv[6])+1]; 

strcpy (aNamel,argv[6]); 

sprintf (theothername, "%s 


aNamel = new char[strlen(argv[7])+1]; 
strcpy (aNamel,argv[7]); 
Add_SubComponent (dbName, thename, 


theothername,aNamel) ; 


} 


//exit; 


else if(option[0] == '5')( 


) 


// Add new Version 
aName = new char[strlen(argv[3])+1]; 

strcpy (aName,argv[3]); 

aNamel = new char[strlen(argv[4])+1]; 

strcpy(aNamel,argv[4]); 

sprintf (thename, "%s %s",aName,aNamel) ; 

aNamel = new char[strlen(argv[5])+1]; 

strcpy(aNamel,argv[5]); 

Add new version(thename,aNamel); 

//exit(0); 


else if(option[0] == '6')( 


// Dump component 

aName - new char[strlen(argv[3])-41]; 
strcpy (aName,argv[3]); 

aNamel = new char[strlen(argv[4])+1]; 
strcpy(aNamel,argv[4]); 

sprintf (thename,"%s £s",aName,aNamel); 
aNamel = new char[strlen(argv[5])+1]; 
strcpy (aNamel,argv[5]); 

DumpComponent (thename, aNamel) ; 
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) 

else ifeaeptiom(9] == “e ( 
aName = new char[strlen(argv[3])+1]; 
strcpy (aName,argv([3]); 
aNamel = new char[strlen(argv[4])+1]; 
strcpy (aNamel,argv([4]); 
sprintf(thename,"%s %s",aName,aNamel1) ; 
aNamel = new char[strlen(argv[5])+1]; 
strcpy (aNamel,argv[5]); 


DumpComponent subtree(dbName,thename,aNamel); 
) 
else if (option) == "SN 
Show_prototypes (dbName) ; 
} 
else 1f (ona) == wa 
aName = new char[strlen(argv[3])+1]; 
strcpy (aName,argv[3]); 
//aNamel = new char[strlen(argv[4])+1]; 
//strcpy(aNamel,argv([4]); 
sprintf(thename, "£s 
%s:%s" aName, "1", "INI; 
aName = new char[strlen(argv[4])+1]; 
strcpy (aName,argv[4]); 
aNamel = new char[strlen(argv[5])+1]; 
strcpy (aNamel,argv[5]); 
sprintf (theothername, "%s 
$s",aName,aNamel) ; 


Dump version(dbName,thename,theothername); 
) 
else if (option (0) == 'a'"){ 
aName = new char[strlen(argv[3])+1]; 
strcpy (aName,argv[3]); 
//aNamel = new char[strlen(argv[4])+1]; 
//strcpy(aNamel,argv([4]); 
sprintf (thename, "%s 
s$:3s",aName, "1" ;*)" je 
aName = new char([strlen(argv[4])+1]; 
strcpy (aName,argv[4]); 
aNamel = new char[strlen(argv[5])+1]; 
strcpy (aNamel,argv[5]); 
sprintf (theothername, "%s 


oo 


$s",aName,aNamel)  ; 


Dump Spec File(dbName,thename,theothername); 
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J 

alee ir operon N En") 
aName = new char[strlen(argv[3])+1]; 
strcpy (aName,argv[3]); 
//aNamel = new char[strlen(argv[4])+1]; 
//strcpy (aNamel,argv[4]); 
sprintf (thename,"%s 

eee, aName,"1","1"); 

aName = new char[strlen(argv[4])+1]; 
strcpy (aName,argv[4]); 
aNamel = new char[strlen(argv[5])+1]; 
strcpy [aNamel,argv[5]); 
sprintf (theothername, "%s 


oe 


$s",aName,aNamel) ; 


Dump Imp File(dbName,thename,theothername); 


) 

else if(option[0] == 'c')( 
// show subtree 

aName = new char[strlen(argv[3])+1]; 
strcpy (aName,argv[3]); 
aNamel = new char[strlen(argv[4])+1]; 
strcpy (aNamel,argv[4]); 
sprintf(thename,"%s %s",aName,aNamel) ; 
aNamel = new char[strlen(argv[5])+1]; 
strcpy (aNamel,argv[5]); 
Show. component versions(dbName,thename, 
aNamel); 

//exit; 

) 

else 
Gom M -< WrondgeepDEron: " << Option << " 


Try again Mn"; 
) 


3. Class Designer 


person.h dk ak ck ok ck ade ade al al al ade ade ade ade ade ale ale ale ale ale ae al ale ale ale ale ade ale ale ale ale ale ale ale ale ale ade ae ale ale ale ade ade ade ale ale ale ae ade ale ale ale ade ae ale ale ale ade ale 


#include <Reference.h> 
#include <Object.h> 
#ainclude <List.h> 


class Person : public Object 
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private: 


int priv_level; 
int priv. status; 
Dulac. 


// Constructors 
Person(char* name=(char*)0,int level= 0, int status=0); 
Person (APL*); 


// Get direct type 
Type *getDirectType(); 


// Accessors 


Int PersonLevel(); 

void PersonLevel (int level); 
int PersonStatus(); 

void PersonStatus(int status); 


void display(); 
je 


person CXX Ae ode He ode ole ole ole ole ole ole ale ale ale ale ale ale al ae ale de k k ole ole ole ale ole ale ale ale al ole ale de le ode ole ale ole ale ale ale ale ale ale ae k ole ale ole ale ale ale ale ale ale ale k k K 


#include "person.h" 
#include <Directory.h> 
Kinclude «Obgect.h» 
#include <stream.h> 


Person::Person(APL *theAPL) 
Object (theAPL) 

{ 

} 


Person: :Personíchar* name, int level, int status): 
Object (name) 


initDirectType( (Type *)OC_lookup("Person")); 
priv_level = level; 
priv_status= status; 
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Co + > A a aa 
// accessors 
NEE Ee 
Type *Person::getDirectType() 
( 

return (Type*)OC, lookup("Person"); 
) 


more Person: :Personhevel (int level) 


{ 

priv_level = level; 
} 
int Person: :PersonLevel () 
{ 

return priv_level; 
} 


void Person: :PersonStatus(int status) 


{ 

priv_status= status; 
} 
int Person: :PersonStatus() 
{ 

return priv_status; 
} 


SetOperations h KKK K ale ale ade ale ale ale ade ale ale ale ale ae ale ale ale ale ale ale ale ale ale ale ale ale ale ale ale K ale ale ale ale ale ale ale ale ale ale ade ale ale ale ale ale al ale K K K K K 


tinclude <Database.h> 

include <Directory.h> // for Object naming 
#include <Set.h> // for Set class 
#include <stream.h> 

tinclude <string.h> 

#include <stdio.h> 

#include "person.h" 


void eri ax3b()- 


void addDesigner(char* dbName,char* aName,int 
Level); 
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void showDesigners(char* dbName); 

void deleteDesigner(char* dbName,char* aName); 

void changeExpLevel(char* dbName,char* aName, int 
Level); 

void changeStatus(char* dbName,char* aName) ; 

void showDesigner(char* dbName,char* aName) ; 


SetOperations CXX FKK K K RR K K K K K K K K K ole ole ole a ale K K e ol ol ole ole ak ak ade ale ad 3K 3K K 3K 3K 3K 3K 3K 3K 3K 3K 3K 3K 3K K 3K 3K K 


tinclude <Database.h> 


#include <Directory.h> // for Object naming 
#include -Seth // for Set class 
#inclugde lIis h- // for Set class 


#include <stream.h> 
#include <stdio.h> 
#include <Type.h> 
#include <Object.h> 
#include "SetOperations.h" 


MEOW S "Medium", "High 
{ "Eree" t T Busy [T] ) . 


//static char *levels[(3] 
//static char *States [2] 


extern char *levels[(3]; 
extern char *States[2]; 


// Add designer 
void addDesigner(char* dbName,char* aName,int Level) 
( 

char personString[64]; 

OC. open ( dbName) ; 

OC transactionStart(); 

// Create designer objects and insert into set 


Person *aPerson - (Person*)OC. lookup(aName); 

1f ( aPerson == NULL ) ( 
/ / cout << "Creating designer object: "<< aName << " 
vus) 


// Create a designer object 
aPerson = new Person(aName, Level, 0); 
// Put it in the database 
aPerson-»putObject(); 
jelse 
cout << "Designer object: "<< aName << " already 
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exist...\n"; 


OC transactionCommit(); 
OC. close(); 
} 


void showDesigners(char* dbName) 
{ 
OC. open (dbName) ; 
OC transactionStart(); 
InstanceIterator it ((Type*) OC lookup("Person")); 
while (it.moreData()) { 
Person* nextPerson - (Person*) (Entity*)it(); 
GCutrewiGdem( 24) 
cout.setf(10s::left,ios::adjustfield) ; 
cout << nextPerson->Name() ; 
Gout width(l9); 
cout.setf(ios::left,ios::adjustfield) ; 
cout <<levels [next Person->PersonLevel ()]; 
cout <<States [next Person->PersonStatus()] <<"\n"; 
} 
it .Destroy (); 
OC_transactionCommit (); 
OC. close(); 


// Delete designer 
void deleteDesigner(char* dbName,char* aName) 
{ 
OC_open (dbName) ; 
OC transactionStart(); 
// Get the item 


Person *aPerson - (Person*)OC lookup(aName); 
1f ( aPerson == NULL ) 
cout << " Designer: "<< aName << " not in the Database 
m. 
// Create a designer object 
else ( 
// Print out its name 
un cout << "Removing "<< aPerson->Name() << "\n"; 


// Remove it 
aPerson->deleteObject (); 
} 

OC transactionCommit(); 

OC. close(); 
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// Change the designer's expertise level 
void changeExpLevel(char* dbName,char* aName, int Level) 
( 

OC. open (dbName) ; 

OC. transactionStart(); 


Person *aPerson = (Person*)OC_lookup(aName; 
if ( aPerson == NULL ) 
cout << " Designer: " << aName << " not in the Database 
Nn; 
// change his expertise level 

else { 
e cout ««"Designer's old Expertise - "««levels[aPerson- 
>PersonLevel ()]; 
/ / coll EA 


// set the new level 
aPerson-»PersonLevel( Level); 
// Put it in the database 
aPerson-»putObject(); 
) 
OC transactionCommit(); 
OC. close(); 


void changeStatus(char* dbName,char* aName) 


( 
OC. open (dbName) ; 
OC, transactionStart(); 


DENIED 
Person *aPerson = (Person*)OC_lookup(aName) ; 
1f ( aPerson == NULL ) 
cout << " Designer: " << aName << " not in the Database 
NE 
else { 
// change his status 
1f (aPerson->PersonStatus()==0) 
OE 
else ( 
if (aPerson-»PersonStatus()-- 1) 
Se — 0: 


} 
j// see the new Staris 
aPerson->PersonStatus(S) ; 
// Put it in the database 
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aPerson->putObject (); 


} 


OC_transactionCommit (); 
OC_close(); 
) 


maindes.cxx ode oe ade de ole ade ode ale de ole ade ale ode ade ae ade ade ade ale ade ale ade ale ade ale ade ale ade ade ode ade ale ade ale ade ode ade ade ade ade ofc oe of ade ale ade ade ade ale ade ode ale ae je ade ale k k 


#include <string.h> 
#include "SetOperations.h" 


// Globals 
char *levels[3] = {"Low", "Medium", "High"); 
char *States[2] = ("Free","Busy"); 


int main(int argc,char *argv{]) 
{ 
snc *obotron-(char*)0; 
char *aName=(char*)0; 
char *dbName= (char*)0; 
char *mylevel-(char*)0; 
int Level=0; 
meni argv(1]) ) 
{ 
dbName = new char{strlen(argv[1])+1]; 
strcpy (dbName,argv[1]); 


if (argav[2]) 
( 
option = new char[strlen(argv[2])+1]; 
strcpy (option, argv{[2]); 


if (option[0] =='1')( 
// Add designer 
aName = new char[strlen(argv[3])+1]; 
strcpy (aName,argv([3]); 
mylevel- new char[í[strlen(argv[4])-41]; 
strcpy (mylevel,argv[4]); 
Level-(int) mylevel[0]- 48; 
addDesigner(dbName, aName, Level); 
//exit; 
) 
else if(option[0] == '2'){ 
showDesigners (dbName); 
//exit; 
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els 


els 


el 


) 
e TfioptioHQUlc--c 51 

aName = new char([strlen(argv[3])+1]; 
strcpy (aName, argv[3]); 
deleteDesigner(dbName, aName) ; 


//exit; 

) 

ENEE 

aName = new char([strlen(argv[3])+1]; 


strcpy (aName,argv([3]) ; 

mylevel= new char[strlen(argv[4])+1]; 

strcpy (mylevel,argv[4]); 

Level-(int) mylevel[0]- 48; 

changeExpLevel(dbName, aName, Level); 

//exit; 

) 

Sem ftlopbaomnicme EE 

aName = new char([strlen(argv[3])+1]; 

strcpy(aName,argv[3]); 
changeStatus(dbName, aName); 

//exit(0); 

) 


4. Class Assignment 


sched.h Ade ak sk ale ale ale ale ale ale ale ale ale ale ale ale afe ade afe afe afe ale aj ale ale ale ale ale ale ale ale ale ale ade ade ade ade ale ale ale ale ale ale ale aj ale ale ale ale ale ale ale ale ade ade ade ade ale ale ale ale ale 


tinclude 
include 
include 
#include 


class Sc 
publics 
( 


private: 


public: 


<Reference.h> 
<Object.h> 
eee 
"Support classes.h" 
hedule 
bject 
char* priv. designer; 
Time privossusnishs 
Time priv. start; 


// Constructors 
Schedule(char* aName=(char*)0,char* 
designer-(char*)0); 
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Schedule (APL*); 


// Get direct type 
Type *getDirectType(); 


// Accessors 

char* AssignedDesigner(); 
void AssignedDesigner(char* designer); 
Time AssignmentStart(); 
void AssignmentStart(Time EstimatedStart); 
Time AssignmentFinish(); 
void AssignmentFinish(Time EstimatedFinish); 


DS 


sched.cxx Ad ade ale ale ale afe afe afe ake ale ale ale ale ale ok ok ale aje ale ale ale ale afe afe afe afe afe ale ale ale ale ale ale aj ok aje ale ale ale ale ale ale ale ale ade ale ale ale ade ale ale ade ale ale ale ale ale al ae 2k 2k 


#include <Directory.h> 
#include <Object.h> 

#include <stream.h> 

tinclude "sched.h" 

£include "support, classes.h" 


Schedule::Schedule(APL *theAPL) 

Object(theAPL),priv start((APL*)0), priv finish((APL*)0) 
( 

} 


Schedule: :Schedule(char* aName,char* designer): 
Object (aName), 
p rart(0,0,0,0,0), priv finishn(0,0,0,0,0) 


( 
initDirectType((Type *)OC lookup("Schedule")); 
priv designer - designer; 
} 
J aan nn a Ra a a wn nn = - - 
// accessors 
/[/[------------------------------------------------ 


Type *Schedule::getDirectType() 
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return (Type*)OC. lookup("Schedule"); 


void Schedule: :AssignedDesigner(char* designer) 


{ 


priv_designer = designer; 


char*Schedule :: AssignedDesigner() 


( 


return priv designer; 


) 


Time Schedule:: AssignmentStart () 
{ 
return priv_start; 


} 


void Schedule:: AssignmentStart (Time EstimatedStart) 


( 


priv start- EstamatedsStart; 


Time Schedule:: AssignmentFinish() 
( 
retťtürn priv finish; 


) 


void Schedule:: AssignmentFinish(Time EstimatedFinish) 
( 
priv. finish- EstimatedFinish; 


) 


schedOp h Ade ale ale ade ade ale ale ade ade ale ale ale ade ade ale ale ale ade ade ade ale ale ae ade ade ade ale ale ade ade ade ale ale ale ade ade ade ale ale ade ade ale ale ale ale ade ale ale ale ade ade ade ale ade ale ade al OK ak 


Htifndef | SCHEDOP.H 
Kdefine __SCHEDOP_H 
void addAssignment(char *dbname,char* listName, char* 
step id, 
char* date,int start,int finish,char* aName); 
void showSchedule(char *dbname,char* listName) ; 
void update start time(char *dbname,char* listName, char* 
designer); 
void getSchedule(char *dbname,char* listName); 
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X 


-— 





void deleteSchedule(char *dbname,char* listName); 

void deleteAssignment(char *dbname,char* listName,char* 
Step id); 

void deleteAssignmentl(char* listName,char* step id); 
void getSchedule l(char *dbname,char* listName,char* 
cur_time); 

#endif 


schedOp CXX sk ok ok ok ok o ok ok ok ok ale ade ok ok ale ade ade ade ale ale ade ale ade ade ale ade ale ale ade ok ale ale ade ok ale ale al ade ade ale ade ade ale ade ale ale ade ale ale ade ale ale ade ale ak ade ale ale ale 


include «Database.nh» 


#include <Directory.h> I for ObJect-naáaming 
#include <Set.h> // for Set class 
#include <List.h> // for Set class 


#include <stream.h> 
#include <stdio.h> 
#include <Type.h> 
#include <Object.h> 
elude <string.h> 


tinclude "step.h" 

#include "sched.h" 

#include "support_classes.h" 
#include "schedOp.n" 


// Add Assignment 
void addAssignment (char *dbname,char* listName,char* Mystep, 
char* Mydate,int start,int finish, char* MyD_name) 
{ 
OC_open (dbname) ; 
OC, transactionStart(); 
// Create assignment object and insert into list 
List *aList = (List *)OC_lookup(listName) ; 
// If it does not exist, create it 
as == NULL) { 
cole << "Creating list object ...in"; 
// Create a new list called MySchedule 
aList = new List 
((Type*)OC_lookup ("Schedule"), 
listName) ; 
} 
//cout << aList->Name() << " already exists.*Mn"; 
Schedule *aSchedule = 
(Schedule*)OC_lookup (Mystep) ; 
1f ( aSchedule == NULL ) 
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//cout << *Creating»record "object NM S 
Mystep << " ...\n"; 
// Create a designer object 
aSchedule - new 
Schedule (Mystep,MyD name) ; 
Time startTime (Mydate) ; 
StartTime=startTime+start; 
Time finishTime(Mydate) ; 
finishTime=finishTime+finish; 
aSchedule-> AssignmentStart (startTime) ; 
aSchedule-> 
AssignmentFinish(finishTime) ; 
// Put it in the database 
aSchedule->putObject (); 
// Check to see if object is already in 


list 
// This 1s necessary because if object 
// is already in list, the Insert will 
add 
// it again to the list 
1f (aList->isMember(aSchedule) == 
FALSE) 
cout << "Inserting "Ra 
aSchedule->Name() << " into list...\n"; 


// Insert object into list 
aList->Insert (aSchedule) ; 
aList->putoObject () ; 


else 


Time startTime (Mydate); 
startTime=startTime+start; 
Time finishTime(Mydate) ; 
finishTime=finishTime+finish; 
aSchedule-> AssignmentStart(startTime) ; 
aSchedule-> 
AssignmentFinish(finishTime) ; 
aSchedule--AssignedDesigner (MyD name); 
// Put it in the database 
aSchedule->putObject () ; 


OC_transactionCommit (); 
OC, close(); 
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) 


void update start time(char *dbname,char* listName, char* 
designer) 
{ 

OC_open (dbname) ; 

OC transactionStart(); 

OC Boolean FOUND-ZFALSE; 

// Create assignment object and insert into list 


List aLi t = Liste JOC lookup(listName); 
// If it does not exist, create it 
if(abList != NULL) { 
Iterator* anIterator - aList- 
>getIterator(); 
// For each item in the iterator 
while(anIterator-»moreData()&& 
!FOUND) ( 
Schedule* nextAssignment - 
(Schedule*) 
as rtv *)((*anIterator)()); 
if(strcmp(nextAssignment 
>AssignedDesigner(),designer) ==0) { 


FOUND = TRUE; 
nextAssignment-> 


AssignmentStart (nextAssignment-> 


AssignmentStart()+2); 
nextAssignment 
-»putObject(); 


) 


OC, transactionCommit(); 
OC. close(); 


void showSchedule(char *dbname,char* listName) 
( 
OC_open (dbname) ; 
OC. transactionStart(); 
List *aList = (List *)OC_lookup(listName) ; 
if(aList == NULL) { 
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cout << "No Available Schedule ¿NA 
OC transactionCommit (); 

OC. close(); 

return; 


) 
if (aList->Cardinality () ==0) 

cout << "No Available Schedule gege 
Iterator* anIterator = aList->getIterator() ; 


// For each item in the Ytemetor 


while(anIterator->moreData()) { 
Schedule* nextAssignment - (Schedule*) 
(Entity) ((*aniterator) i E 


cout.width (10); 

cout™setf (ľ0os:left,ios::adjustfle ikii 
cout << nextAssignment->Name(); 

cout waste 20 
cout.setfí(ios::left,ios::adjustfield); 
cout << nextAssignment-> 


AssignmentStart().makeString(); 


Cout widen (205; 
cout.setf(ios::left,ios::adjustfield); 
cout <<nextAssignment-> 
AssignmentFinish().makeString(); 

cout «« nextAssignment- 


»-AssignedDesigner() 


) 


«EIU 
) 
delete anIterator; 
©CGVEransactionComm tt) 
OC_close(); 


void getSchedule(char *dbname,char* listName) 


( 


OC. open (dbname) ; 
OC transactionStart(); 


TRE DATOS 
List *aList = (List *)OC_lookup(listName); 
if(aList == NULL) { 
cout << "No Such Sehedule |]. \n": 
OC_transactionCommit () ; 
OC_close(); 
return; 
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) 


Schedule* first_ass=(Schedule*)aList 
->getEntityElement (0); 
Time Tl1-first, ass-»AssignmentStart(); 


Iterator* anIterator - aList-»getIterator(); 


// For each item in the iterator 


while(anIterator-»moreData()) ( 
Schedule* nextAssignment - (Schedule*) 
(Entuey+)(*antiterator)()); 


Gout. wrach £0); 
cout.setf(ios::left,ios::adjustfield); 
cout << nextAssignment-»Name(); 

cont wraen(20); 
cout.setf(ios::left,ios::adjustfield); 
T2=nextAssignment-> AssignmentStart()- 


RI 
coute cp. 
coute wm ct m20)- 
cout.setfí(ios::left,ios::adjustfield); 
T3=nextAssignment-> AssignmentFinish()- 
T: 


COUET- a; 
cout << nextAssignment- 
>AssignedDesigner () 
c mes 

} 
delete anIterator; 
OC transactionCommit(); 
OC close(); 


void getSchedule 1l(char *dbname,char* listName,char* 
cur. time) 
( 

OC_open (dbname) ; 

OC transactionStart(); 


List *aList = (List *)OC_lookup(listName) ; 
if(aList == NULL) { 
AG, coút << "No Such Schedule ...\n"; 
OC transactionCommit(); 
OC. close(); 
return; 


Ee 


Time Tl(cur time); 
Iterator* anIterator - aList-»getIterator(); 


// For each item in tCheoeniterator 


while(anIterator->moreData()) { 
Schedule* nextAssignment = (Schedule*) 
(Entity*) ((*aniterator) Gee 


1f(Tl > nextAssignment- 
>AssignmentStart () ) { 
Cout .width( 10); 
cout.setfí(ios::left,ios::adjustfield); 
cout << nextAssignment->Name |() 
«wi n": 
coute wsth (020) > 
cout.setfí(ios::left,ios::adjustfield); 
int T3=nextAssignment-> 
AssignmentFinish()- 
lee 
Sout tee EC 
Cout «« nextAssignment 
->AssignedDesigner() << "An"; 


) 

delete anIterator; 

OC transactionCommit (); 
OC, close(); 


void deleteSchedule(char *dbname,char* listName) 
( 

OC, open (dbname) ; 

OC, transactionStart(); 


List *aList - (List *)OC_lookup(listName) ; 
if (abist == NUEL) & 
OC_transactionCommit (); 
OC. close(); 
return; 


} 

//Delete the Schedule List 
aList->deleteCluster(); 

OC transactionCommit(); 

OC. close(); 


void deleteAssignment(char *dbname,char* listName, char* 
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step id) 


OC, open(dbname) ; 
OC transactionStart(); 
OC, Boolean FOUND-ZFALSE; 


List *aList = (List *)OC_lookup(listName) ; 
if (aList == NULL) { 
cout << “Nothing to delete ...\n"; 
return; 


Iterator* anIterator = aList->getIterator(); 


// For each item in the iterator 
while(anIterator->moreData()&& !FOUND) { 
Schedule* nextAssignment = (Schedule*) 
(Entity*)((*anIterator)()); 
if (strcmp(nextAssignment-»Name(), 
step_1d)==0)( 
aList->Remove(aList 


>Index (nextAssignment) ); 


nextAssignment - 
>deleteObject (); 
FOUND = TRUE; 
} 
} 
1f (aList->Cardinality() == 0) 
aList->deleteObject () ; 
else 


aList->putObject (); 
OC, transactionCommit(); 
OC_close()}; 


void deleteAssignmentl(char* listName, char* step id) 


( 


OC_Boolean FOUND=FALSE; 


List *aList = (List *)OC_lookup(listName) ; 

if (aList == NULL) { 
Td cout << "Nothing to delete ...\n"; 
return; 


Iterator* anIterator = aList->getIterator(); 
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// For each item in the iterator 
while(anIterator->moreData() && 'FOUND) { 
Schedule* nextAssignment = (Schedule*) 
(Embütyv*)((*amLterator) "EE 
if (strcmp(í(nextAssignment-»Name(), 
step id)sz0)( 
aList-»Remove (aList 
>Index(nextAssignment ) ) ; 
nextAssignment- 
>deleteObject (); 
FOUND = TRUE; 
) 
) 
abist-»putObject(); 


mainsched CXX ade ak ade ale ade ak al ade ale ade ale ae ade ale ade ale al ale ade ale aj ade ale ae ale ale ale ale ade ade ale ale ale ale ale ale ale ade ale ade ale ale ale ade aja ade ale ale ade aje ale ale ade ade ale ale ale ale ale 


#include <Database.h> 

#include <Directory.h> // for Object naming 
#include <Set .h> // for Set class 
#include <stream.h> 

#include <stdio.h> 

#include <string.h> 


#include "sched.h" 

#include "support_classes.h" 

#include "schedOp.h" 

int main(int argc,char *argví[]) 

( 
char “option: (Char O; 
char *aName=(char*)0; 
char *aNamel=(char*)0; 
char *aName2=(char*)0; 
char *Dname= (cham) 0; 
char *dbName=(char*)0; 
char datel1[64]; 
char *listName="MySchedule"; 
1nt vias 


if oan 

( 
dbName = new char[strlen(argv[1])+1]; 
strcpy (dbName,argv[1]); 
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) 


"PEGargvi2]5 

( 
option S new Char [stelenlargv[2]) +1]; 
Se repy (option argv[2]); 

} 


if(option[0] =='1')({ 
//Add designer 
aName = new char[strlen(argv[3])+1]; 


strcpy (aName,argv[3]); 
Dname= new char[strlen(argv[4])+1]; 
strcpy (Dname,argv[4]); 
aNamel= new char[strlen(argv[5])+1]; 
strcpy (aNamel,argv[5]); 
aName2= new char[strlen(argv[6])+1]; 
strcpy (aName2,argv[6]); 
sprintf (datel,"%s @s",aNamel, aName2) ; 
aNamel= new char[strlen(argv[7])+1]; 
strcpy(aNamel,argv([7]); 
sscanf (aNamel, “%d",&v1) ; 
aName2= new char[strlen(argv[8])+1]; 
strcpy (aName2,argv[8]); 
sscanf (aName2,"%d",&v2); 
addAssignment (dbName, listName,aName, 
datel, 
vi v2, 
Dname) ; 
} 
else. at (6pt2o0n [Oly == * 2%) 4 
showSchedule(dbName, listName) ; 
} 
else fe (optaon | 0} ==— "3" If 
deleteSchedule(dbName, listName) ; 
} 
cucocirioopsson ss 4T 
aName = new char[strlen(argv[3])+1]; 
strcpy (aName,argv[3]); 
deleteAssignment (dbName, 
listName, aName) ; 
} 
else if(option[0] == '5'){ 
getSchedule(dbName, listName) ; 


} 
else if(option[0] == '6'){ 
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aName = new char[strlen(argv[3])+1]; 
strcpy (aName,argv[3]); 
Dname= new char[strlen(argv[4])+1]; 
strcpy (Dname,argv[4]); 
sprintf(datel,"£s £s",aName,Dname); 
getSchedule l(dbName, listName,datel); 
} 
else if(option[0] == '7'){ 
aName = new char([strlen(argv[3])+1]; 
strcpy (aName,argv[3]); 
update start time(dbName, 


listName,aName) ; 


a 


} 


Class Time 


support classes.h Aa ale ale ale ale ale ale ale ale ale ale ale ale ade ale ale ale ale k ale ale ale ade ale ale ade ale ale ale ale ale ade ale ale ale ale ale ale ale ale ale ale ale ade al ale ale ale ale ale ale ale ale ale ale 


#1ifndef __SUPPORT_CLASSES_H 
#define __SUPPORT_CLASSES_H 


class Time(í 


private: 


ls 


, 


unsigned priv minuteInHour :1 
unsigned priv, hourInDay 5 
unsigned priv dayInMonth 55 
4 
5 


e ~ e 


unsigned priv_monthInYear 
unsigned priv. yearFrom1993 


r 


t 


pulsis 


n 


#endif 


Time( int min, int hour, int day, int month, int veda 


Time(char* dateTimeString) ; 
Time( APL* theAPL) ; 


Time operator+( int duration ); 

int operator-(Time& anotherTime) ; 

OC Boolean operator--( Time& anotherTime ); 
OC Boolean operator»( Time& anotherTime ); 
char* makeString( ); 

void display(); 


//__ SUPPORT_CLASSES_H 
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support classes.cxx Me al ade ade ale ale ade ale ade ade afe ale ade ale ale ade ale ale ade ale ade ade ade ade oic ok ale ale ale ade ale ale ale ade ale ade ale ale oic de ale ade ale ale ade ale aje ale ade ale ade ale ade al 


include <Tyvpe.h> 
include «Object.h-» 
include <GlobalEntities.h> 
include <Database.h> 
Finclude <Directory.h> 
include <stream.h> 
extern "C" 

( 

Kinclude <strings.h> 
include <ctype.h> 
include <stddef .h> 
#include <string.h> 


) 


#ifndef | SUPPORT CLASSES H 
Kinclude "support classes.h" 
#endif 


feet nullTine 

static Time nullTime(0,0,0,0,0); 

// Constructor used for + operation, just initialize fields 
Mime: Fame( int min, int hour, int day, int month, int year ): 
priv minutelnHour( min ), priv hourInDay ( hour), 
priv dayInMonth ( day ), priv monthInYear( month ), 
priv. yearFrom1993( year ) 

( 

) 


Activation Constructor 
Time ::Time(APL*) 

( 

) 


// Constructor used by end user, converts standard 
// mm/dd/yy hh: 

mm format to internal representation 

Time: :Time[ char* dateTimeString ) 

( 


int month, day, year, hour, minute; 
sscanf( dateTimeString, "%d/%d/%d £$d:£d", &month, 


&day, 
&year, 
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&hour, &minute) ; 
priv. yearFrom1993 
priv monthInYear 
priv dayInMonth 
priv. hourInDay 
priv minuternnour 


) 


year-93; 
month; 
day; 
Ince 
minute; 


// Adds duration to the hourInDay field, 


Time Time: 


operator-4( 


TIET EES 
( 

GE unsigned tl, EE ee 

int ctl e EE 

t4 - priv. hourInDay; 

t4 = t4+duúuration; 

tl=t4; 

priv hourInDaáy=t4; 

je Sl 
t4 = (t4-16)%8 + 8; 
priv. hourInDayst4; 
t5-2priv dsssbnMonths. 
ES = (t5 +1+ (t1-16)/8); 
priv day IlnMonth=t$; 
it (CSRO 

Eae tS EO, 


t2=priv_yearFroml 999; 


priv_yearFrom1993=t2 


E 
/ 


) 
) 


Driv day loMonth—to- 


t3=priv_monthinyYear ; 


CSN oe RN 
Driv monthinYear—tsr 
A 


pct E 
priv monthInYesmp- EE 


2 ate le 


Time result( priv minuteInHour,priv. hourInDay, 
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mary day inMonth,priv_monthinyYear,priv_yearFroml1993 ); 
return result; 


} 


// subtract two times resturning the difference in hours, 
int Time::operator-(Time& my time ) 
( 
int result; 
int month, day, year, hour; 
hourszpriv. hourInDay-my time.priv hourInDay; 
days priv dayInMonth-my time.priv dayInMonth; 
month- priv monthInYear-my time.priv monthInYear; 
year-priv yearFrom1993-my time.priv yearFrom1993; 


result=hour+ (day*8)+(month*240)+(year*12*240) ; 
return result; 


OC Boolean Time::operator--( Time& anotherTime ) 
( 

peturne(toccBoolean) (*(ant*)this -- 
* (3nt*) &kanotherTime); 


) 


OC Boolean Time::operator»( Time& anotherTime ) 
{ 
if (priv_yearFrom1993 > anotherTime.priv_yearFrom1993) 
retuüurn TRUE; 
else{ 
if(priv. yearFrom1993 == anotherTime.priv_yearFroml1 993 
&& 
priv monthInYear » anotherTime.priv monthInYear) 
return TRUE; 
else{ 


if(priv yearFrom1993--zanotherTime.priv yearFrom1993 && 
priv monthInYear == 
anotherTime.priv monthInYear && 
priv dayInMonth > anotherTime.priv_dayInMonth) 
return TRUE; 
else{ 
1f(priv_yvearFroml993 == 
anotherTime.priv yearFrom1993 && 
priv monthInYear -- 
anotherTime.priv monthInYear && 
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priv dayInMonthi- = 
anotherTime.priv dayInMonth && 
priv. hourInDay > 
anotherTime.priv. hourInDay) 
return TRUE; 
elsel 
if(priv yearFrom1993 -- 
anotherTime.priv. yearFrom1993 && 
privesmonthinYear == 
anotherTime.priv_monthiInYear && 
priv dayInMonth -- 
anotherTime.priv. dayInMonth && 
priv HommELHBDSg =- 
anotherTime.priv_hourInDay && 
priv_minuteInHour > 
anotherTime.priv. minuteInHour) 
return TRUE; 
else 
return FALSE; 


char* Time::makeString( ) 
{ 

char result{[ 16 J; 

sprintf(result,"%. 2da? 2da? 2a 
%.2d:%.2d",priv_monthInYear, priv_dayInMonth, 

priv. yearFrom1993493, priv hourInDay , 

priv minúten Hour 

rėtúrn (strdup (result); 


) 


void Time:: display) 

( 
printf (" 2d/%d/37d dvd ", priv_monthiInYeaw 
priv, dayInMonth,priv. yearFrom1993, priv hourInDay 


priv minuteInHour ); 


) 


My String.h Ade ode ole ale ade ade ade ae ade ade ole ale ale ale ale ale ale ale ale ale ade ae le ale ale ale ale ale ale ale ale ale ale ale ade ale e ale ade ale ale ale ale ale ale ale le ale ale ale ae ade ale ale ale ale ale ale ale ale 
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&ifndef My String H 
efine My String H 


include <iostream.h> 


ae lúude <stdio.h> 
include <string.h> 


class My_String_rep 
( 
char* str; 
int refs; 
int length; // does not include null byte 
My String rep(char *); 
Mastering rep(Char 59) 
friend class My_String; 


IS 


class My String 

( 
My String rep r; 
REES 

public: 
My String (My String&); 
EE EE lee 
STEE 
My String& operator- (My String); 
operator char *(); 
const Char est Erg). 
ime Str Llengtht); 
void print (); 
friend int operator < (My_String, My_String); 
riend int operator > (My_String, My_String); 
PRlcidsimemoperealonr —-wi(My String, MyuString) ; 
friend EE EE (My String, My Strang); 
friend My_String operator+ (My_String, My_String) ; 
friend My String operator- (My String, My String); 
friend My String operator- (My String, int); 
friend ostream& operator«« (ostream&, My String); 
friend istream& operator»» (istream&, My String&); 


a 


#endif _My_String_H 


289 


My String CXX Ak ak ak ak ale ak al ade ale al ale al ale ale ale ale ale al ale ale ale ade ale ale ale ade ale al ale al ale al ale ale al al al al ak al ale ale ak al al ale ale ak al ale ak ale ale ak ak al ak ak ak 


tinclude. My 26 earner me 


My_String_rep: :My_String_rep(char *s) 
{ 


str = new char[(length = strlen(s)) + 1]; 
strcpy (str, SI: 
Frets t= al; 


My String_rep: :My_String_ rep (Ghar = tI 
{ 

Str = $DULIDUES 

refs = 1; 

length = strlen(str); 
} 


My String: ¡My _Striıing(cCchar Ss) 
( 


r - new My. String rep(s); 


My String: :- My string char” Moa E 
( 
r = new My String. rep(ptrptr); 


My String::My String(My String &init) 
( 

Lo CD ie 

r ->refs++; 


My String& My String::operator- (My String str) 
( 
if (!--r-»refs) 
( 
delete r->str; 
delete r; 
} 
C= Sr bee 
r -> refs++; 
return “Chis: 
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My String::-My. String() 
( 
if (!--r-»refs) 
( 
delete r->str; 
delete r; 


) 


My String: «operator char* () 

( 
char p = new char[(r->length) F 1]; 
Serep (DL a | 
return p; 


) 


censt CcChar* My String: :string() 


{ 


return (r->str); 


int operator< (My_String sl, My_String s2) 


return (stremp(sl.string(), s2.string() ) < 0); 


Memo perator> (My_String sl, My_String s2) 


BOE ( strcmol(sl.string(), S2.string() ) > 0); 
) 
muNebDerator--(My String sl, My String s2) 
( 

|ctmemnExcEECHD slosrtrlDnq(), s2sstramq() ) sz 0); 


int operator !=(My_String sl, My String s2) 


return strcmp ( sl.string(), Ss2estring() ) != 0 ); 


ostream& operator<< (ostream& o, My_String s1) 
{ 


O<- nsl stringi) ; 
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return o; 


) 


istream& operator»» (istream& o, My String& s2) 
( 

char buf [2361F 

O) >> DUI; 

s2 = My Strang (bus); 

retürn o; 


int. My_String:: otr lengten) 
( 
return ( r-»length ); 


) 


void My tr SES PO 
( 

Drintt outs a cbr E 
} 


/* My String operatore (My String s1, My String s2) 
( 
char. es 
t = new char([sl.Str_length() + s2.Str_length() + 1]; 
strcpy te best ring (ja 
My String “Ss3{strcat (tb SS criada 
delete t; 
return s3; 


re 


My String operator+ (My String sl, My String s2) 
( 

char =E} 

t = new char[sl.Str length() + s2.Str_length() + 
Whe 

strcpy (t;s string); 

strcat (t S2 SEring ME 

My String s3(&t); 

return s3; 
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My String operator- (My String s1, My String s2) 


) 


M String 


echar” t. 


itn = si Stralengen() -—- 2*s2.Str_length() 


t = new char[n + 1]; 


cnar” pr 

Seine oy (te OL =— (ehare ysl, n) ; 
Em] 2 S9 

My String s3(&t); 

delete[] p; 


return s3; 


operator- (My String sl, int n) ( 
cnar. t; 

iat k = sl.Str_length()-n ; 

t = new char[k-«1]; 

Chart p, 

Sn PY C D (Chars, k): 
USES NOE 

My String s3(&t); 

delete[] p; 

return s3; 


C. PROGRAMS 


There are two main Ada packages in addition to the main programs for the manager 
interface, designer interface and the Tae program on top of the manager interface. The two 
main packages are the Ada interface to C++ package that enables the Ada programs to 
access the data in the design database and the scheduler package that implements the 
scheduling algorithm. In the rest of this section we include a copy of the Ada code for both 
the specification and the implementation of both packages in addition to the code for the 


other main programs. The module dependency diagram for the relations between different 


program modules is shown in Figure 32. 


1. The Ada Interface to DDB Package 


( 


4; 


ECS Operations s.a sk ok ade ale oe ok ok ok ade ok ade al ade ade ale ae ale ale ale ade ale ade ale ade ade ale ade ale ale ade ale ae ale ale ale ade ale ale al ale ade ale ale ale ale ale ade ade ale ade ale ale ale 


-- Title 
-- Author 
-- Date 


The scheduler spec package 


Salah badr 
4 Sept 1993 
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FIGURE 32. ECS Module dependency diagram 
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-- Revised : 
-- System IS UNS / 


-- Compiler : verdixAda 

-- Description 
with TEXT. IO; -— BASIC NUM_ IO; 
tee CAAT TO; ==, BASIC _ NUMEIO ; 


with scheduler; use scheduler; 
-- generic 
package ECS, OPERATIONS is 
package nat io is new integer io(natural); use nat 1o; 


procedure system call(command :string); 


procedure auto mail (name ESAE 
step id : string); 
procedure auto_mail2 (name Strung, 
step ema : string); 
procedure auto mail3 (name | SEE: 
step id : string); 
ZA AAA RARA AA AA AA AAA AR AAA AA A A AA A A A A e A kA kk kk kk kk kk kk kk kk kA 
——* COMPONENET OPERATIONS E 


AAA AAA AA AA AA A A A AAA AA AA AA AA AA AA A A A AA A AAA A AA AA AAA AA A A A A A k 


procedure Create_Prototype (ddbname :String; 
option “String: 
protoname :string); 
procedure Show_Prototypes (ddbname SCRIP: 
option EI 


-- This function is general for all the operations: Show 
-- Component,Show SubTree, Add New Version, Dump 

-- Component,and Dump SubTree The only difference is the 
-- option number 


procedure general function(ddbname St ad 
option "UT 
protoname  :string; 
var ver nissan gs 
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comp name  :string); 


procedure Add SubComponent (ddbname :String; 
option :StrPings; 
protoname  :string; 
var ver Star 
Comp name :string; 
varl verl  :string; 
parent Pst lnGgne 
procedure Dump version(ddbname :SEring; 
option SCLIN. 
protoname :string; 
comp_name :string; 
varl verli  :string); 


ACA A AAA AAA A AAA AA A AA AA A A ARA AA AA AA A A AAA AA RA AA AA A AAA A A AR 


__* STEP OPERATIONS E 


— — E EE kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kkk kk kk kk kk xk 


procedure Create Step(ddbname Sring 
option istring; 
proto EH 
comp : Seeing); 


-- this function show either one step or a set of steps 
-- according to the option given. 


procedure Show. Step (ddbname 5st oQngse 
option SEEN, 
step_id - string) 

procedure get sched data(ddbname St Laa 


step_id :string); 


procedure get_sched_data_2 (ddbname sSECring; 
d. name String); 


-- This function is general for all the operations: delete 
-- input (primary, secondary or affected modules), updating 
-- precedence,priority, exp level duration, status or 

-- designer's name. The only difference is the option number 


procedure general update(ddbname sut quere 
Opt len Jom 
step id SSCring: 
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value String): 


procedure create substep(ddbname nci ng 
ODE JO SUBIO. 
step_id string; 
P input SEET 
Sum ata on String); 


-- This function does add step inputs primary, secondary or 
-- affected modules. The only difference is the option number 


procedure update time(ddbname String; 
Option Sring; 
step_id ENEE a 
the_time 2S ee ne 
procedure remove_step_from_schedule (ddbname :string; 
option String: 
step_id SE 
theDate "sErring)s 
procedure Early Warning (ddbname SCING; 
option SC ng; 
manager string); 


SAA AAA AAA AA AAA A AAA AAA A A AA AA AA AAA AA AA AAA A AAA A AAA A A AA AA RRA 


fece SCHEDULE OPERATIONS 3 


SS AAA AAA AAA AAA AA AAA A AAA A AA AAA AA A AA AAA AAA A AA AAA AA AAA AR A AA A 


procedure Add_Assignment (ddbname Siting, 
option pon 
step id "SEEN; 
desname 2StCIHO: 
the time :String; 
start SUI iG: 
finish String): 


procedure get current time(the time:out string); 


procedure Show Schedule(ddbname:string; 
option :string); 


procedure get sched data 1l(ddbname {Sot aang. 
d_name String): 


procedure Get Schedule(ddbname:string; 
Cprmen, -sering) ; 
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procedure Delete Assignment (ddbname:string; 
option :Strrng; 
Step id:string); 


procedure Delete Schedule(ddbname:string; 
Option st rang): 


procedure SAVE SCHEDULE(HEAD : in LINKI; 
dbname: string; 
d vector: in vector; 
my_list== D LINK); 


procedure MAIN(indicator: in integer); 


NEL EXEXXXZXXZdXXXcxcclcclcsl sl dl: dd 


--* DEASIGNER POOL OPERATIONS S 
E kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk dg kK 
procedure DESIGNER, MENU; 

procedure DESIGNER, OPERATIONS; 


procedure Add designer(ddbname:string; 
ODCgOnc SETS 
desname:string; 
level  :string); 


procedure Show designer(ddbname:string; 
Opcion ctr tig). 


procedure put_designers (ddbname:string; 
optionwestrring); 


procedure Delete designer(ddbname:string; 
option EE 
desname:string); 


procedure Change. exp level(ddbname:string; 
option :string. 
desname:string; 
level  :string); 


procedure Change_status (ddbname:string; 
Opt OH" : string; 


desname:string); 


end ECS OPERATIONS; 
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ECS Operations Hp, yA EAE AE e od ode ot le ode od al ke ok lada lod ok lol a de ade al lod ad ad o k k kk k k k k k kkk k 


-- Title : Scheduler package body 
-- Author : Salah badr 

-- Date : 4 Sept 1993 

-- Revised : 

-- System S SUIS 

-- Compiler : VerdixAda 

-- Description 


with text io, system; 
use text io, system; 
with scheduler; use scheduler; 


package body ECS OPERATIONS is 


Namel ISMAIL. 0) z959SWoportbP":; 
option NE e 
Name3 y STRING(1..64); 
Name4 POUR UNG (12.64): 
Name5 : STRUNG (ies, 64); 
Name6 > STRING(1..64); 
Name7 : STRING(1..64); 
D_status : STRING(1..4); 
SELECTOR C—-—-uatural Ter); 
Length : integer; 

Length1 > integer; 
data_file : FILE TYBE: 
answer Character, :="Y 6 


procedure system_call(command :string) is 


procedure system_C(command :address) ; 
pragma INTERFACE (C, system_C) ; 
pragma INTERFACE NAME(system C, " system"); 
temp : constant STRING := command&ASCII.NUL; 
error: integer; 
begin 
system_C (TEMP ' ADDRESS) ; 
end system call; 


— ck ck ck ck ck oe oe cde cde oce oce oe oe ode AAA 


procedure auto, mail (name SES T Pd. 
step id : string)is 
begin 
CREATE(data file, OUT FILE,"temp2"); 
put (data file,"You have been assigned the step no:  "); 
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put (data, file,step id); 
CLOSE (data_file); 


System call("mail "&name&"« temp2"); 
System call("rm temp2"); 
end auto mail; 
on Ck ck ck ke ck ck oe e ck ck e cde AAA A AAA AAA AAA AAA AAA A AAA AAA AAA AAA AA AAA AAA RRA RR 
procedure auto_maill (name tee ae niens 
Step id : string)is 
begin 
CREATE(data file, OUT FILE,"temp2"); 
put (data_file, "ATTENTION REQUIRED Step:  "); 
put (data, file,step id); 
put (data, file," should commit within an hour E 
CLOSE (data, file); 
system call("mail "&name&"« temp2"); 
System call("rm temp2"); 


end auto maill; 
— —n E kk kk Ak kk kk A kk kä A kk Ak Ak kk kA kk A kk kk Ak kk A kk kk kk A kk kk Ak kk kk Ak kk kk Ak 


procedure auto mail2 (name strings 
step id : string)is 
begin 
CREATE (data. file, OUT FILE,"temp2"); 
put (data_file, "Your current assigned step:  "); 
put (data, file,step id); 
putí(data, file," has been Suspended..."); 


CLOSE (data, file); 
system call("mail "&name&"« temp2"); 
system call("rm temp2"); 


end auto, ma11l2; 
=> d A d dE dE JE JE dE dE d dE d dE dE d d d d d d JE d dd JE JE d JE dE dE dE dd JJ JEJE d JE db dE JE JJ JE JE JE d JE JJ JE db dE JE d dE 


procedure auto mail3 (name DS 
Step id : string)is 
begin 
CREATE (data file, OUT FILE, "temp2"); 
put(data file,"Your current assigned step:  "); 
put (data, file,step id); 
put (data, file," has been abandoned..."); 


CLOSE(data, file); 
System call("mail "&name&"« temp2"); 
System call("rm temp2"); 

end auto mail3; 


— ck ck ck ck ck ck de de deo oe ck AA A AAA AAA AA A AAA AAA AAA AAA A AA AAA AAA AA AAA AA AAA AA AR 


— COMPONENT OPERATIONS i 


— AAA RA AA AAA AAA RARA AA AAA A AAA AAA AAA AA AA AAA ARA A AAA RACK AA KARA AR 
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procedure Create Prototype(ddbname zer TT. 
(9I i Seria: 
protoname :string) is 


begin 

system_call("maincomp "&" "&ddbname&" "&option&" 
"&protoname) ; 
end Create_Prototype; 


— ck ck ck ck ck ck ck ok ck ck ck oce oce ck ce ce A AA AA AA RARA A AA AAA A AAA A A AA A AA AAA AA A A A AAA A A 


procedure Show_Prototypes (ddbname String: 
option «string) is 
begin 
system_call("maincomp "&" "&ddbname&" "&option&" > 
ddbdisplay"); 


CE NOW Prototypes; 

e AAA AAA AAC ARA RARA RAR RAR RARA AAA AA AAA AAA AAA AAA AAA AAA AAA RA KR 
-- This function is general for all the operations: Show 

-- Component,Show SubTree, Add New Version, Dump Component, 
-- and Dump SubTree The only difference is the option number 


procedure general function(ddbname dS. 
DE on Ering; 
protoname :string; 
var_ver String; 
comp name  :string) is 
begin 
System call("maincomp "&ddbname&" "&option&" "&protoname&" 
"&var ver&" "&comp. name); 


end general, function; 
— ok ok ok ok owe ok oe Ak A kk A kk Ak kA Ak Ak kk Ak kk Ak Ak Ak kk Ak kA Ak Ak Ak kk A kk kk Ak kk Ak Ak Ak kk kk kk kk kx e 


procedure Add SubComponent (ddbname :String; 
GES Ee 
protoname  :string; 
var, ver ASA 
comp name :string; 
varl verl  :string; 
parent :String) is 

begin 


system call("maincomp "&" "&ddbname&" "&option&" 
"&protoname&" " 
&var ver&" "&comp name&" "&varl, verl&" 
"&parent); 
end Add, SubComponent; 


301 


— cock ck ce ck cde AAA AAA AAA AAA AA AA A A A A A AAA A A A AA AAA AAA AAA AA AAA A AR A 


procedure Dump version(ddbname | etse 
option EE 
protoname  :string; 
comp name  :string; 
varl. verl  :string) is 
begin 


system callí("maincomp "&" "&ddbname&" "&option&" 
"&protoname&" " 
&comp name&" "&varl ver1); 
end Dump version; 


ENEMIES dl ARA AA AA A AA A A AAA A AAA AR AA AA A A AA AAA AA A 


__* STEP OPERATIONS i 


ACA AA AAA AA AAA AA RA RA A AAA A AAA AA AA A A A e e A AA A AA A A AR A A € 


-- option (1) 


procedure Create Step(ddbname String: 
option :SErIng. 
Porto :string; 
comp :string) is 
begin 
system_call("mainstep "&" "&ddbname&" "&option&" "&proto&" 
"&comp) ; 


end Create SEEP 

— wn Ek kk kk Ak kk kk kk e e Ak e e e e e kk kk kk Ak e Ak e e e e e Ak e A A e A A e A A e e A A e de kk 
-- this function show either one step(2) or a set of steps(3) 
-- according to the option given.Same function is used for 
-- commit step(e), approve(c), and commit substep(d) 


procedure Show Step(ddbname «string; 
Opio a «string; 
step_id ¿Sstring) 15S 
begin 


system_call("mainstep "&" "&ddbname&" "&option&" 
"&step id&" » ddbdisplay"); 
end Show, Step; 
mm KA ARA A AAA AA A A A e A A A kk Ak A A ode ode oe oce oe ode oe ode oe ode one cde oe ode oe oe oe ode oe oe ce ck oce oe ck oe o kv KK 
-- This function is general for all the operations: 
-- status(7) or designer's name(8). 
-- The only difference is the option number 


procedure general update(ddbname SELINA, 


option :string; 
step 1d ¡strings 
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value string) is 


begin 
system_call("mainstep "&" "&ddbname&" "S&option&" 
"&step id&" "&value); 


end general, update; 
— e EM AAA RARA AAA ARA AAA AAA AA A AAA AA AAA A RA A A e A AA AA ARA A RRA RRA AA RAR RS 


procedure create substep(ddbname EE 
Option “SELING: 
step_id SERANG, 
P input String, 
duration “String 1s 


the time:string(1..14); 
begin 
get current, time(the time); 
system callí("mainstep "&" "&ddbname&" "&option&" 
"&step id&" "&p input&" " 
&the_time&" "&duration&" »temp8"); 
Ee Get e substep; 
KARA ARA RR RARA RRA AA AAA AAA A A onde ode oce oce ode oce ook ck oe one ode oe oe ode oe ook oe oe oce oe oceoe cock ck oe ox x ox ox k*k 
-- option (a) 
procedure get, sched data(ddbname String: 
step id :string)1s 
She time:string(1..14) ; 
begin 
get current time(the time); 
system call("mainstep "&" "&ddbname&" a "&step id&" 
"&the time&" >temps"); 
EE Sched data; 
—— wm EE kk kk Ak kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk 
== option (1) 
procedure get_sched_data_2 (ddbname :String; 
d name :SCring)is 
the time:string(1..14); 
begin 
get current time(the time); 
system callí("mainstep "&" "&ddbname&" 1 "&the time&" 
"&d name&" >temps"); 
end get sched, data 2; 
— LL Ck ck ck ck oce ke ck Ak Ak c oc oe oc Ak cock oe ck cock coc e oce ook ck € e o eo ck o ook ck oce ck oc ck oe ck ck ck ck oc ok cock ck ok oe ox ook ox ox 
-- This function updates start, time(5), and finish, time(6) 
procedure update time(ddbname EE 
option :String; 
step id :string; 
the time  :string) is 
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begin 
system call("mainstep "&" "&ddbname&" "&option&" 
"&step id&" " 
&the time); 


end update time; 
— ok c ce ce ce cde che ce ode kk kk kk kk kk kk kk Ak Ak Ak kk kk Ak kk Ak kk kk kk kk Ak Ak kk kk kk Ak kk kk kk e 


-- option-f 
procedure remove step from schedule (ddbname :Strrnob 
OpE TON string: 
step_id 
Ue ETC 
theDate :Strindg NES 
begin 


system call("mainstep "&" "&ddbname&" "&option&" 
"&step id&" "&theDate&" >temp4"); 
end remove step from schedule; 


AAA AAA AA AAA A A A AAA AAA AAA AA AA AA AA AA AAA AA A AAA AA AA AA AA AAA RR 


-- option=k 
procedure Early. Warning (ddbname {Sting ; 
option SI 
manager -stringi i> 
the_time : sting.. 14); 
an_id Sering IES 
Name4 ua eos 
data, filel EEE E 
begin 


get current time(the time); 
system call("mainstep "&" "&ddbname&" "&option&" 
"&che time&" >temp6"); 
OPEN(data, filel, IN. FILE, "temp6"); 
WHILE not END OF FILE(data filel) loop 
get_line(data_filel,an_id, length); 
for 1 ain Length«*«1..5 eme 
A E 
end loop; 
get line(data filel,Name4,length); 
for 1 in Length+1..64 loop 
Name4(1):=' '; 
end loop; 
auto maill(Name4,an. id); 
auto, maill (manager,an. id); 
end loop; 
CLOSE (data. file] 
system_call("rm temp6") ; 
end Early_Warning; 
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— Loc ck oe ck ce oe oe e ke ke oe oe ode oe ode oe ode je ode oe ode oe ode oe oe ode oe oe ode ode ode oe ode oe ode ode oe oe ode ode oe oe oe oe oe ode coke de ode oe oe oce ode e A de e 


E SCHEDULE OPERATIONS S 


— we EES kk kk kk kk kk kk kk Ak kk kk kk kk kk kk kk Ak kk kk kk Ak kk kk kk kk kk kk A K KKK 


procedure Add Assignment (ddbname String. 
option String; 
step_id Sta E 
desname Ering; 
the_time "SE Jg; 
start String: 
finish Scu mg) Ss 

begin 


system call("mainsched "&" "&ddbname&" "&option&" 
"&step id&" "&desname&" " 
&the time&" "&start&" "&finish); 
end Add Assignment; 


A wm E EE kk kk kk Ak kk kk kk kk kk kk Ak Ak kk kA kk kk Ak kk Ak kk kk kk kk kk kk kk kk kk kk kr X 


procedure get current time(the time:out string) is 
begin 

system call("date '«£m/£$d/$y $H:$M' > templ"); 

OPEN (data, file, IN FILE,"templ"); 

get(data file,the time); 

CLOSE(data file); 

system call(í("rm templ"); 
end get current, time; 
— ok ck c eoe ck oe oe oe choke ode ck Ak kk kk kk kk kk kk kk kk kk Ak kA kk Ak kk kk kk kk kk Ak kk kk Ak kk e e 
Eoptron - 1 
procedure Show Schedule (ddbname:string; 

option :string) is 

begin 

system call("mainsched "&" "&ddbname&" "&option&" 
>ddbdisplay"); 
end Show. Schedule; 
— xe xe e ce oe oe oe oe oe che oe cfe Ak Ak A A ode ode oce oe oe oe ode oe oe oe oe ode ode ode oce oe oe oe oe oe ode ode oe ode oe oce oe ode eode ode oe ode oe ode oe oe de de e e e 
procedure get sched data, l(ddbname ISO 

d_name dot rdg) s 
the time:string(1..14); 

begin 

get current time(the time); 

system call("mainstep "&" "&ddbname&" m "&the time&" 
"&d name&" >temp3"); 
end get sched data. 1; 


e 2e oce de ck de de ck e e ode ck che ode ode ode ode ode ode ode e A oe ode ode och och ode ode oe oe oce ode ode ode ode ode oe ode ode ode ode ode ode cde ode ke oe cde oe oe oe ode oce kk kkk 


== option = 5 
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procedure Get Schedule(ddbname:string; 
option :string) is 
begin 
system call("mainsched "&" "&ddbname&" "&option); 
end Getsscnpedmier 
—— o oc ck ck oce ce cde che Ak Ak A A A kk Ak kk A Ak kk kk kk kk kk Ak kk kk kk kk kk A A A e A e A A A A A A AA A A A Xx M 
=-option =4 
procedure Delete_Assignment (ddbname:string; 
option + string: 
step_id:string) 1s 
begin 
system_call("mainsched "&" "&ddbname&" "&option&" 
"Estep_1d); 
end Delete_Assignment; 
HACIA Ak kk Ak Ak kk kk Ak kk Ak kk kA Ak kk kk kk kk kA Ak Ak kk kk Ak kk Ak kk Ak Ak kk Ak Ak Ak Ak kk kk kkk 
== OOo = 3 
procedure Delete Schedule(ddbname:string; 
Option -string) i15 
begin 
system call("mainsched "&" "&ddbname&" "&option); 
end Delete Schedule; 


— AA A AAA AAA ACA A A A AAA AAA AAA A AA A AA AA AAA AA AA AAA AAA A AAA AAA AA SR 


--* DESIGNER POOL OPERATIONS A 
> ok ck ck ck ck ck ck ck ck ck ck ck ck ck ck oce cock ck ck ck ck ck ck oce ck ck oce ck oce cock ce ck ce ck ck ck ce ck ck oc oe e ck ck CA coco oko ck Ak kA kk Ak 
procedure Add, designer(ddbname:string; 
option E E ISI 
desname:string; 
lee ioe Ging) YS 
begin 
system call("maindes "&" "&ddbname&" "&option&" 
"&desname&" "&level); 
end Add designer; 
> ok kk Ak kk Ak kk Ak Ak kk kk A ck ck oko ck ck oko ck oc oe e ce ke e ce ke de e A e e e A e e A A A A e e AA A A A A A A A kx A X e 
procedure Show. designer (ddbname:string; 
Spt ien™:string) rs 
begin 
system_call("maindes "&" "&ddbname&" "&option&" > 
ddbdisplav"); 
end Show. designer; 
A ACA AA AAA A AAA AA AA A kk kk kk kk kk kk kk kk Ak kk kk Ak kk zk kk kk kk kk kk Ak kk xk 
procedure put, designers (ddbname:string; 
Option -String ei- 
begin 
system call("maindes "&" "&ddbname&" "&option&" »temp2"); 


end put designers; 
— Lock oko ck ck ck ck oe oe ck AA A A AAA A A A AAA AA AAA AAA A AAA AA AAA AA AA AAA A AAA AAA A A &( 
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procedure Delete designer(ddbname:string; 
Option SEring; 
desname:string) is 
begin 
System call("maindes "&" "&ddbname&" 3 "&desname); 


end Delete designer; 
— e ck ck cfe oco oe oe oe oe oe oe oe oe oe oe ook ooo AA AA AAA A A AAA AAA AA AAA AAA RA AAA AAA AAA RR kx SR Se 


procedure Change. exp level(ddbname:string; 
option :string; 
desname:string; 
level :string) is 
begin 
system call("maindes "&" "&ddbname&" 4 "&desname&" 
"&level); 


end Change exp level; 
ok ck ok ck ok ok oce oc ode oe oe ode ode ode oe oe ode oe ode oe oe oe oe oe oe oe ode oe oe ooo oe oe oe oe oe oe oe oe oe oe oe ooo oe oe oe o eoo o e kk kk RAR 


procedure Change status(ddbname:string; 
opEronwe:strings 
desname:string) is 
begin 
system call("maindes "&" "&ddbname&" 5 "&desname); 
end Change status; 


— ok ck ck ck ck oe ock ck ook ode oce ode coke ode oe oe ck oe ode oe oe ode ode ode ode ode ode ode ode oe ode oe oce ode ook oe ox oe ok ook ooo oco eoo xo ke o x xe kx x kx ok kx 


-- DISPLAY THE MAIN MENU. 
procedure DESIGNER_MENU is 


begin 
new_line; 
set_col(25); put("MAIN MENU"); new_line; 
set col(25); put("---------- "); new line(2); 


set col(5); put("[1] Add designer"); 

new line; 

set col(5); put("[2] Show designers"); 

new line; 

set col(5); put("[3] Delete designer"); 

new line; 

set col(5); put("[4] Change expertise level"); 
new line; 

set col(5); put("[5] Return to main menu"); 
new line(3); 
set col(5); put ("Enter the number of your choice 
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end DESIGNER MENU ; 


Loo ck ck ck ck ck ck ck oc c oc coco ode ode oe ode oe ode oe oe oe oe oe oe oe oe oe oe oe o0 oe oe oe oe oe 0e oe oe oe ooo 0 0 X o e 0 eo eo o x o x A 0 X 0x X X 


procedure DESIGNER, OPERATIONS is 


begin 
loop 
DESIGNER, MENU ; 
get(SELECTOR); skip line ; 
case SELECTOR is 
-- insert a record into database. 
when 1 => 
ODIO EE 
while answer - 'y' or answer-'Y' loop 

put ("Enter designer's name: "); 

get line(Name3,Length); 

for 1 in Length+1..64 loop 

Names (MW = m 

end loop; 

put ("Enter Expertise Level: "); 

get line(Name4,Lengtnh); 

for 1 in Length+1..64 loop 

Name4(1):=' '; 
end loop; 
Add_designer (Namel, option, Name3,Name4) ; 
put("Add more designers [Answer y/n]: "); 
get (answer); skip_line ; 
end loop; 

put, designers (Namel, "2"); 
get sched data(Namel,"0"); 
get sched. data, 1 (Namel, Name3) ; 


main(0); 
when 2 => -- Show designers 
ODE OMEN E 
Show designer(Namel,option); 
when 3 => -- Delete designer 
opteron =" 30E 


put ("Enter designer's name: "); 
get line(Name3,Length); 
for 1 in Length+1..64 loop 
Name3(1):=' '; 
end loop; 
Show. designer(Namel,"2"); 
OPEN(data, file, IN FILE, "ddbdisplay"); 
WHILE not END OF FILE(data file) loop 
get line(data, file,Name4,length1); 
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when 


torn bendgthtrl.-64. loop 
Name4 (3999 

end loop; 

put line(Name4(1..lengtnh)); 
put line(Name4(45..48)); 

if Name4(1..length)zName3(1..length) 
then D status:-zName4(45..48); 
end if; 

end loop; 

CLOSE (data_file) ; 

system call("rm ddbdisplay"); 


if D status(1..4)-2- "Busy" then 

put. line("Desiner is busy, Confirmation 
Required"); 

put("Do you have to delete him now(answer 
en n: 

get (answer); skip_line; 

if answer -'y' or answer - 'Y' then 


Delete designer(Namel,option,Name23); 
system call("mainsched "&Namel&" 7 
" &Name3) ; 
put. designers (Namel, "2"); 
get sched, data (Namel1,"0"); 
get sched data. 1 (Namel1,Name23) ; 
main(0); 
end if; 
else 
Delete designer (Namel,option,Name3); 
end if; 
gu -- Change expertise level 
option: =- Hi; 
put ("Enter designer's name: "); 
get line(Name3,Length); 
for 1 in Length+1..64 loop 
Names =". E 
end loop; 
put ("Enter Expertise Level: "); 
get_line (Name4, Length); 
for i in Length+1..64 loop 
Name4(1):-2"' '; 
end loop; 


Change exp level (Namel1, option, Name3,Name4) ; 


put. designers (Namel1, "2"); 

get sched, data (Namel,"0"); 

get sched data, 1 (Namel,gName3); 
main(0); 
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when 5 => 


-- put ("thankyou Bye re BYE 
new_line ; 
exit; 


-- exception handling for selector case. 


when others => 


put (" BAD CHOICE. PLEASE TRY AGAIN"); 
new_line ; 
end case; 
end loop; 


end DESIGNER, OPERATIONS; 


— ok ck ck ck ck ck ok ck oce ook ok oe oe oe ode oe ok ok oe oe ode oe oe oe oe ode oe ode oe oe oe oe oe ode oe oe oe ode oe oe oe oe oe oe oe oe oe oe oe oe o x x6 0 x x Xx x x k 


procedure SAVE SCHEDULE (HEAD in LINKI; 
dbname string; 
d_vector: in vector; 
my list D LINK ) is 
CURRENT LINK1 := HEAD y 


my time:string(1..14); 


an, id E 1e S9 
start SEI d QE 
finish ARO MEE 

-- designer :string(1..64); 
my_name :string(1..16); 
my_index: natural; 

-- length natural; 

begin 


get current time (my time); 
while CURRENT /= null loop 
put (an_1d «CURRENTASTE PET DI% 


put (start, CURRENT. START TIMB) ; 
put (finish, CURRENT.FINISH_TIME); 
1f CURRENT.DESIGNER_LEVEL = high then 
my_index := CURRENT.DESIGNER_NO + 
d_vector(1)+d_vector(2); 
elsif CURRENT.DESIGNER_LEVEL = medium then 
my_index := CURRENT.DESIGNER_NO + d_vector(1); 
else 
my_index := 
end 1f; 
FIND_DESIGNER (my_list, my_index, 
1f CURRENT.START_TIME = O0 
then auto mail(my name, an, id); 
Change status(Namel1,"5", my name); 
general, update (Name1,""7",an. id, "3"); 
general update(Namel,"5",an, id,my time); 


CURRENT.DESIGNER, NO ; 


my name); 
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else 
general update(Namel, "7",an. id,"2"); 
end if; 
general update(Namel,"8",an id,my name); 
Add Assignment (dbname,"1",an id, my name, 
my time,start, finish); 
CURRENT 3 = (CURRENT. NEXT ; 
end loops 
end SAVE_SCHEDULE; 


— —n KKK KK KKK KKK KKK KKK KKK KKK KKK KKKE KKK KEKE KKK KKK KKK KKK KKK KKK KKK KKK 


procedure MAIN(indicator :in integer) is 


an id MS o) 

STEPZLEIST 7 LINK «= null ; 

STEP LIST TAIL Opes = null S 
POSITION MENA 

PREVIOUS INN 

CURRENT eee ee ice 

temp1 : LINK; 

SCHEDULE_TAIL AI null, 

T, k, temp : natural; 

S ID : natural; -- step id 

R |: natural: 1; -- row 

C : natural:= 1; -- column 

FOUND :boolean := FALSE; 

FEASIBLE :boolean := TRUE; 

my SELECTOR EA eE 0; 

LEVELS o 25 

EEADY LISI: LISTIVEC TOR(1. LEVELS):= (others => null); 
Sele DUE; SCHEDULETVE TOR( FF 53):= (Others => null); 
PENDING_LIST: link := null; 

ASSIGNED : boolean := TRUE; 

answer “Character :='n'; 

level_l, level_m, Level_h, INDEX : natural; 


DES LIST : D- LINK; 
— — E kk kk kk kk kk kk kk Ak kk kA kk kk Ak kk Ak Ak A A A A A A A A kk kk kk kk kk kk kk kk kk Ak 
begin 
begin 
CREATE DESIGNER LIST(DES LIST,level 1l, level m, 
Level h); 
if level 1 »- level m and level 1 »- Level h then 
INDEX:2 level 1; 
elsif level m »- level 1 and level m »- Level h then 
INDEX:- level m; 
else INDEX:- level h; 
end if; 
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end; 


DECLARE 

designer_vector : VECTOR(1..3) := (level_1, level m, 
Level_h); 

EAT : designer_matrix(1..LEVELS, 1..INDEX) := (others 


=> (others => 0)); 


-- Main program. 
begin 


-- insert a record into database. 
CREATE AND INSERT NEW STEP(STEP LIST, 

STEP LIST TATI 

if STEP DIST /= NUM Ren 

RESET FOR RESCHEDULING (DES_LIST, STEP 
designer. vector); 

k :- list size(STEP LIST); 

CURRENT <= STEP CISTE 


while CURRENT /= null loop  -- initialize ready. lists 


if CURRENT.IN DEGREE = 0 then 


temp EXPERTISE_EEVEL "POS (CURRENT. EXP ABE VEDA 


INSERT_ORDER_START_TIME (READY_LIST(temp), 


CURRENT) ; 
CURRENT y= CURRENT NEXT; 
else 
CURRENT =R C C URRENT. NEXT, 
end if; 
end loop; 


while k /= 0 loop 
for i in reverse 1..LEVELS loop 
ASSIGNED: +=] TRUE; 
-- Schedule the steps 
while READY_LIST(1) /= null and FEASIBLE and 
ASSIGNED loop 
STRONGLY_FEASIBLE (READY_LIST(1), EAT, 
DESIGNER_VECTOR, LEVELS, FEASIBLE) ; 
1f FEASIBLE 
then 
templ :- READY LIST(1); 
LEVEL MINMUM(EAT, templ1.EXP LEVEL,LEVELS, 
DESIGNER, VECTOR, R,C); 
ASSYGN®P STEP (READY? EPST, STEP _LISWREAT, 


DESIGNER_VECTOR, R, C, IF SCHEDULE (2A SSTCNE DIE 


if ASSIGNED then 
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kcu gebe 
CHECK IN DEGREE i (templ, STEP LIST, READY LIST, 
EAT(R,C)); 
end if; 
else exit; 
end if; 
end loop; 
if not feasible then exit; end if; 
end loop; 
if not feasible then exit; end if; 
end een. 
SCHEDULE RECORD HEADENG ; 
PRINT TACLE REDULE RECORDS (SCHEDULE(2), DES LIST, 
designer. vector); 
Tf cneseator - 1 then 
put("Confirmation required to save the schedule in 
DDB. Answer(Y/N): "); 
get (answer); 
if answer ='y' or answer='Y' 
then 
Save_Schedule (SCHEDULE (2) ,NAME1, 
DESTGNERSVEGTIOR. DES LIST): 
end if; 
else 
Save_Schedule (SCHEDULE (2) ,NAME1, 
DESUTGNER VECTOR, DES- LIST); 
end if; 
POSITION := STEP_LIST; 
While POSITION /= null loop 
if POSITION.DEADLINE CHANGE then 
put (an, id, POSITION.STEP ID); 
system callí("mainstep "&Namel&" 3 


"san id); 
end if; 
EGSSUSBIONSZCPOSITIONJONEXT: 
end loop; 
end if; 
end; 
end MAIN; 


end ECS, OPERATIONS; 


2. The Scheduler Package 


scheduler s.a A a oe ole ole ale ale ae ale ale ale ale ale ale ale ale ale ale ale ale ale ale ale ale ale ale ale ale ae ale le ale ade ale ale ale ale ale ale ale ale ale ale ale ale ale ale ale ale ale ale ale ale ale ale ale ale ale ale 


-- Title : The scheduler spec package 
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-- Author : Salah badr 


-- Date : 25 May 1993 
-- Revised : 

-- System | Suns/ 

-- Compiler : VerdixAda 

-- Description 


with generic set pkg; 

with generic. map. pkg; 

with TEXT IO; -- BASIC. NUM. IO; 

use TEXT IO; o -- JBASICONUPMSSCOI 
with test io pkg; use test io pkg; 


-- generic 
package scheduler is 


package nat, set is new generic, set, pkg(natural, 5); use 
nat, set; 
-- instantiate instances of the generic map package. 
package nat map is 
new generic, map pkg(key -» natural, result => 
natural); 
package set map is 
new generic map pkg(key -» natural, result -» set) ; 


type EXPERTISE LEVEL is (low, medium, high); 
package exp map is 
new generic map pkg(key -» natural, result -» 
EXPERTISENMEBEUERU 


type STEP RECORD ; -- is limited private; 
type LINK is access STEP RECORD; 


type DESIGNER RECORD; -- is limited private; 
type D_LINK is access DESIGNER_RECORD; 


type SCHEDULE_RECORD; -- is limited private; 
type LINK1 is access SCHEDULE. RECORD; 


type STEP RECORD is record 


NEXT 
NEXT READY, 
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NEXT PENDING LENK; 


STEP ID : natural; 
DEADLINE |! natural :- 0; 
PRIORITY : natural; 


ESTIMATED DURATION : natural; 
EARLIEST START TIME: natural :z0; 


EXP LEVEL : EXPERTISE LEVEL; 
SUCCESSORS : set; 
PREDECESSORS : set; 

IN_DEGREE : natural; 

DEADLINE CHANGE : BOOLEAN := FALSE; 


end record ; 
— —n E kk kk Ak kk kk Ak Ak kk A kA kk kk kk A kA A A e e e A AAA A RA AAA ARA RARA RRA RA e e e e X e 


type DESIGNER RECORD is record 


NEXT "D LINK; 
D_name AS ringi. 16); 
LEVEL EEA PERTISE_ LEVEL, 


end record ; 
— ok ck ck ook cock ok ook ck oe kk kA kk Ak Ak Ak kA kk A A A A A A AAA AAA RA RA RA kk Ak kk kk kA kk A kk e x kx kx e 


type SCHEDULE RECORD is record 


NEXT : LINKI; 
STEP ID : natural; 
START TIME : natural; 
EINISEHSTIME : natural; 
DESIGNER. NO : natural; 

STEP LEVEL EY PERTISE LEVEL; 
DESIGNER_LEVEL > EXPER TIO LEVEL; 


end record ; 


type VECTOR is array (POSITIVE range <>) of integer; 

type designer_matrix is array (POSITIVE range <>, 
POSITIVE range <>)of natural; 

type LIST_VECTOR is array (POSITIVE range <>) of 


link; 

type SCHEDULE_VECTOR is array (POSITIVE range <>) 
Ore link: 

DEADLINE1 Nat map- map; 

PRIORITY1 Rato map map; 


ESTIMATED_DURATION1 : nat_map.map; 
EARLIEST_START_TIME1: nat_map.map; 


EXP_LEVEL1 : exp map.map; 
DUCGESOORSI : set map.map; 
PREDECESSORSI : | Set map.map; 


— ok ck ck ck ck ck ck ck ck ck ck ck ck ck cock ck cde oe ck coke ode A AAA AA ACA AAA ARA AA AAA AAA AA AAA AAA AAA Ak 


315 


-- Creating new step. 
procedure CREATE. NEW STEP; 


-- Linking a step to the tail of the step list 
procedure INSERT. NEW STEP (LIST ,TAIL, 
A RECORD : in out LINK 


-- Creating new step from a file and linking it to 

-- step list. 

procedure CREATE AND INSERT NEW STEP (LIST , TAIL : 
in out LINK ); 


procedure CREATE DESIGNER, LIST(D LIST : in out D LINK; 
NO LOW : in out natural; 

NO. MED : in out natural; 

NO-HIG : in out naturai 


procedure INSERT D record(HEAD,A RECORD:in out D LINK 


procedure FIND DESIGNER(HEAD : in D LINE; 
D_INDEX : in natural; 
d name : out string); 


procedure set_successors(LIST : in out LINK); 


-- resetting the in degree of the steps in the step 
-- list for rescheduling 
procedure RESET IN DEGREE(LIST : in out LINK); 


-- creating a new schedule record 
procedure CREATE SCHEDULE RECORD( 


S ID 7 in naturali 
TIME1 : 1n natural; 
TIME in naturalik 
D_NO : 1n natural; 


S LEVEL : in EXPERTISE CE EM 
D_LEVEL : in EXPERTISE_LCEV EME 


A CCAA AA RARA kk kk kk kk kk kk kk kk Ak kk kk kk kk kk kk kk kk kk kk kk kk 


-- DISPLAY THE MAIN MENU. 
procedure SCHEDULER, MENU; 


-- PRINTING A SCHEDULE HEADING LINE BEFORE PRINTING 
Eeer 
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procedure SCHEDULE RECORD HEADING; 


-- display a record given its position in the list. 
procedure DISPLAY SCHEDULE, RECORD(Í 
CURRENT:in LINK]; 
wa list : D LINK ; 
d vector: an vector ); 


-- print all the records in the SCHEDULE list. 
procedure PRINT_ALL_SCHEDULE_RECORDS ( 
HEAD : in LINK1; 
my list:D LINK; 
d vector: xn vector ); 


-- PRINTING A STEP HEADING LINE BEFORE PRINTING ANY 
-- RECORD. 
procedure STEP RECORD. HEADING; 


-- display a record given its position in the list. 
procedure DISPLAY STEP RECORD (CURRENT : in LINK ); 


-- print all the records in the STEP list. 
procedure PRINT ALL STEP RECORDS (HEAD : in LINK ); 


-- print all the records in the READY QUEUE. 
procedure PRINT ALL QUEUE RECORDS(HEAD : in LINK ); 
A A e ode de eode ode ode oce che A A A A A A A AA A A e e e e e e e e e e e e e e e e fe e e e e A eo x kkk 
-- Linking a step to the ready list in order of its 
-- deadline. 
procedure INSERT ORDER, DEADLINE | 

R QUEUE :in out LINK; 

A RECORD : in LINK ); 


-- Linking a step to the ready list in order of its 
-- start time. 
procedure INSERT_ORDER_START_TIME(R_QUEUE , 

A RECORD : in out LINK ); 


-- Linking a step to the pending list in order of 

-- its start time. 

procedure INSERT PENDING, ORDER, START TIME(R QUEUE, 
A RECORD : in out LINK ); 


-- Linking a step to the ready list in order of its 


-- (DEADLINE + start time). 
procedure INSBEBRISSHRDERSMIXED(R QUEUE , 


SI 


A RECORD : in out Cik SE 


-- Linking a step to the ready list in order of its 
-- laxity. 
procedure INSERT ORDER LAXITY(R QUEUE , 
A RECORD : in out LINK ); 

-- Linking a schedule record to the tail of the 
-- schedule list 
procedure XNSERT,. NEW SCHEDULE RECORD(LIST T TANE 

A RECORD : in out LINK1); 


-- Linking a schedule record according to its 

-- expertise level 

procedure INSERT ORDER EXP LEVEL(HEAD, A RECORD: 
in oùt LINKIDE 


-- Linking a schedule, record to the schedule in 

-- order of 

-- its start time. 

procedure INSERT ORDER, START TIME (HEAD, A RECORD : 
in- out LINKE 


-- Linking a schedule record to the schedule in 

-- order of its step id. 

procedure INSERT ORDER STEP ID (HEAD, A, RECORD : in 
cut LINKIDE 


e Ek kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk k kk kk kkk kk kk kk kkk kk k kk kk kk 


procedure LEVEL MINMUM(MATRIX : in DESIGNER MATRIX; 


LEVEL : in EXPERTISE. LEVEL; 
MAX LEVEL : in natural; 
ROW LENGTH : in vector ; 
eeh : in out natural); 
function ROW_MINMUM (MATRIX : in DESIGNER, MATRIX; 
LEVEL : in EXPERTISE. LEVEL; 
ROW LENGTH : in vector)return 
natural ; 


— ok ck oe e ck ck ok oe oce ok oce oce ode oe oe ode ode oe ode ode ode oce oe ode ode ode oe oe ode oe ode ode oe ode ode ode ode oce oe ode ode ode kk Ak oe ode ode ode ode ode oce ode oe deo e o e 
-- Search for target step. Return the position and 


-- previous if found 
-- " Record not found " if not found: 


procedure FIND_STEP (HEAD NO LINK; 
S- 1D : in natural; 
POSITION s Trout LINK; 
PREVIOUS : In OUt LINK; 
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FOUND sim out boolean) - 


-- Delete a step from step list. 

procedure DELETE_FROM_STEP_LIST (HEAD: in out LINK; 
POSITION : in LINK; 
PREVIOUS : in LINK); 


-- Delete a step from pending list 
procedure DELETE FROM PENDING LIST (HEAD IN- OUE LINK; 
POSITION : in LINK; 
PREVIOUS : in LINK); 


-- Delete a step from schedule. 
procedure DELETE_FROM_SCHEDULE (HEAD Sin oU. LINKI; 
POSITION : in LINKI; 
PREVIOUS : in LINK1); 


-- Delete a step found by search and relink step 
-- list. 


procedure DELETE FROM READY QUEUE ( HEAD: in out 
LINK); 


ZAC AAA AAA AA AA AA AAA RARA ARA RA AAA A RARA ARA AAA AAA RARA AA AAA AA AA RR 


-- Decrementing the in degree of the successors of a step 
procedure DECREMENT IN DEGREE (STEP, LIST: in Out LINK; 
fin Shet : 1n natural); 


function list size(LIST :in LINK) return natural; 


-- checking the in degree of the successors of the 
-- assigned step 
-- This works with deadline heuristic (mixed and 
-- laxity too) 
procedure CHECK IN DEGREE ( 
SIE AR OUEUE LIST in out- LINK; 
finish t in natural); 


-- checking the in_degree of the successors of the 
-- assigned step 
-- This works with start time heuristic. 
procedure CHECK IN DEGREE 1 (STEP, LIST : in out LINK; 
RECUBUE I GUE hot Vee TOR: 
finish t in natural), 


procedure CHECK_IN_DEGREE_2 (STEP, LIST : in out LINK; 
R OUEUE Ain OUt LIST VECTOR; 
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finish t : in natural 


-- checking the pending list for ready steps of a 
-- Certainlevel and insert them into the 
-- corresponding ready list according to their 
-- deadlines 
procedure GET READY STEPS(t, k : in natural ; 
LIST : in-out LINK: 
R, QUEUE : in out LIST VECTOR); 
-- checking the pending list for ready steps of a 
-- certain level and insert them into the 
-- corresponding ready list 
-- according to their (deadlines + start times). 
procedure GET READY STEPS 1(t, k : in natural ; 
LIST R OUVUEUE > 1n out CENE 


-- checking the pending list for ready steps of a 

-- certain level and insert them into the 

-- corresponding ready_list according to their 

== LAXITY. 

procedure GET READY STEPS 2(t, k : in natural ; 
LIST: R OUEUE : in out LINK); 


-- get the top steps in the ready list and 
-- insert them into the corresponding ready list 
-- according to their deadlines 
procedure GET READY STEPS (LIST :in out LINK; 
R QUEUE : in out LIST VEGRSDUE 


-- get the top steps in the ready list and 
-- insert them into the corresponding ready. list 
-- according to their (deadlines + start times). 
procedure GET READY STEPS 1 (LIST :1n OUt RM 
R QUEUE : in oùt LIST VEC OPIE 


-- get the top steps in the ready list and 
-- insert them into the corresponding ready_list 
-- according to their Laxity. 
procedure GET READY STEPS 2 (LIST :in out LINK; 
R. QUEUE > in Out LIST VECTOR 
— Lok ck ck ck ck ck ck ck ck ok ok ock ck ck ck ck ck ck ock ck ck ook ockock ok ok oe eoe oe oe ode oe oe oce ook A kk Ak AAA AAA AA A A A e e e e e e A 
procedure SUGGESTFDEADLINE_SLIP(Step : in out E 
value :in natural); 


-- checking the feasibility of the schedule with 
-- each step in the ready queue 
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procedure STRONGLY FEASIBLE(R QUEUE ee dei ek KC 


MATRIX : 1n DESIGNER, MATRIX; 
DETECTOR "dn Vector; 
MAX_LEVEL am mata 

FEASIBLE Tn Oout boolean Ye 


— mn EE kk kk kk kk kk kk kk kk kk kk kk kk kk Ak kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk 


-- Assign a step to a designer according to its deadline 
-- and its expertise level 


procedure ASSIGN. STEP(R, QUEUE UN CUE LIST VECTOR: 

LIST : in out LINK; 
MATRIX : 1n out DESIGNER, MATRIX; 

ROW LENGTH 30M e westor.: 
M,N : in out natural; 
L : in natural; 
SCH win Out LINKI. 
done omnt ee 


-- reset the step list and the schedule for 
-- incrementing the schedule 
-- with new steps at certain time 
procedure RESET_FOR_RESCHEDULING ( 
ssi qmod DILINK.: 


LIST  : in out LINK: 
MATRIX : in out DESIGNER, MATRIX; 
d vector : 1n vector); 
procedure FIND DESIGNER, POSITION(HEAD Gn DELCINK; 
DETNDEX out natural; 
d name : in string); 


—— "Ek kk kk kr kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk zk 


end scheduler; 


scheduler b.a HE ME He He de de de e ade de ale ade ale ale ade ade ade ade ade ade ale ade ale ale He ale ade ale ale de ade ade ale ale ale ale ale ade ale ade ade ade ade ale ale ale ale ale ade ade ade ade ale ale ale ale ale SK KC 


-- Title : Scheduler package body 
== Author : Salah badr 

-- Date : 25 May 1993 

-- Revised : 

-- System S Sums? 

~= ompiler : VerdixAda 

-- Description 


with UNCHECKED_DEALLOCATION; 


SCH 


package body scheduler is 


package nat, 10 is new integer io(natural); use nat. 10; 
procedure put, set is new generic put; 
procedure get, set is new generic, input; 
procedure getf set is new generic file input; 
procedure FREE is new 
UNCHECKED DEABEOCATION (STEP RECORD? LEN; 
procedure FREE1 is new 
UNCHECKED. DEALLOCATION(SCHEDULE RECORD, LINK1); 
package enu io is new 
text, 10. ENUMERATION. IO(EXPERTISE, LEVEL) ; 


STEP ID >: natural :=I; 

NEW_RECORD : LINK;-- new step record 
NEW_S_RECORD : LINK1;-- new schedule record 
MY RECORD : D. LINK;-- new designer record 
-- logical file definitions 

data file,data filel .: FILE, TYPE; 

Input string 1. . W0); 

-- physical file name that include step data 
E_level_error :exception; 


— ok ck ck ock ck ock ck ck ck ck ock ck ck ck ck ck ock cock ck ck ock cock ck ck ockock ook ck ook oce oe oce oe oe oc oce ok oe ck oce oe ck oce ok oce one ok oce ook oce o A xf kkk k 


-- Creating new step for standard input. 
procedure CREATE NEW STEP is 
begin 
NEW RECORD := new STEP RECORD ; 
-- assign values to record fields. 
NENCHEECORD..STERBCTDISESDERNWADD. 
put, line("Please Enter DEADLINE "); 
get (NEW. RECORD.DEADLINE ); 
put line("Please Enter PRIORITY "); 
get (NEW_RECORD. PRIORITY ); 
put line("Please Enter ESTIMATED DURATION "); 
get (NEW. RECORD.ESTIMATED DURATION ); 
put, line("Please Enter EARLIEST START TIME ni: 
get (NEW RECORD.EARLIEST START TIME); 
put line("Please Enter  PREDECESSORS  "); 
get set (NEW RECORD.PREDECESSORS) ; 
put line("Please Enter SUCCESSORS ni: 
get set (NEW. RECORD.SUCCESSORS) ; 
put, line("Please Enter EXPERTISE LEVEL REQUIRED 


enu, io.get (NEW RECORD.EXP LEVEL); 
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um PREDECESSORS: = NEW RECORD. PREDECESSORS; 
NEW RECORD.IN DEGREE :- 
size(NEW, RECORD.PREDECESSORS) ; 
skip line; 

end CREATE. NEW. STEP; 
= kk Ak kk kk kk kk Ak Ak kk kk kk kA kk A Ak Ak kk kk A kk kk kk kk kk kk kk kk Ak kk Ak Ak Ak kk A 

-- Linking a step to the tail of the step list 

procedure INSERT NEW STEP (LIST , TAIL, 
A_RECORD : in out LINK ) is 


begin 
A SI mull 
then A RECORD.NEXT :- LIST; 
LIST = ASRECORD:.: 
else 
Pot Next: = A RECORD ; 
end if; 
TALE == sae RECORD - 


end INSERT_NEW_STEP; 


= << kk kk kk kk kk Ak kk kk kk kk kkk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk 


-- Creating new step from a file. 
procedure CREATE_AND_INSERT_NEW_STEP(LIST, TAIL: 
B OUt LINK ) is 
begin 
OPEN(data file, IN FILE, "temps"); 
WHILE not END OF FILE(data file) loop 
NEW RECORD :- new STEP RECORD ; 
-- assign values to record fields. 
get(data file,NEW RECORD.STEP ID ); 
get(data file,NEW RECORD.DEADLINE ); 
getí(data file, NEW RECORD.PRIORITY ); 
get (data, file, NEW. RECORD.ESTIMATED DURATION ); 
getf set(data file, NEW RECORD.PREDECESSORS); 
enu, io.get(data file, NEW RECORD.EXP. LEVEL); 
get(data, file,NEW RECORD.IN. DEGREE); 
INSERT NEW STEP(LIST, TAIL,NEW. RECORD); 
end loop; 
CLOSE (data, file); 
set successors(LIST); 
exception 

when DATA ERROR => 

put line("Step is not in approved state"); 
when constraint, error --» 

put line("Step is not in approved state"); 
when others => 
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null; 
end CREATE AND INSERT NEW STEP; 


-——kkrkkrkkrkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k 


procedure CREATE_DESIGNER_LIST(D_LIST : in out 
D LINK; 
NO LOW : in out natural; 
NO MED : in out natural; 
NO HIG : in out natural)is 
-- Length : integer; 


begin 
NOMEON =: = 70. 
NO_MED m: =PO; 
NO_HIG := 07 


OPEN (data_filel, IN_FILE, "temp2"); 
WHILE not END OF FILE(data filel) loop 
MY RECORD :- new DESIGNER. RECORD ; 
-- assign values to record fields. 
get (data, filel,MY RECORD.D. name); 
-- for 1 in Length+1..20 loop 
== MY _ RECORD.D_name(1):=' '; 
-- end loop; 
-- put (MY RECORD.D. name); 
enu, io.get(data, filel,MY RECORD.LEVEL ); 
Skip line(data, filel); 
-- enu, 1o.put (MY. RECORD.LEVEL) ; 
-- new line; 
if MY RECORD.LEVEL = low then NO_LOW:=NO_LOW +1; 
elsif MY_RECORD.LEVEL = medium then NO_MED := 


NO_MED +1; 
else NOW IG :=-NO_HIG" T; 
end if; 
insert D record(D LIST,MY. RECORD); 
end loop; 


CLOSE (data. file1); 
end CREATE DESIGNER, LIST; 
— — Ek kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk Ak kk kk A 
-- Linking a deigner record according to its 
-- expertise level 
procedure INSERT D record (HEAD , A RECORD : in out 
D LINK ) is 


CURRENT : D LINK :- HEAD ; 
PREVIOUS "MD LINK -SINUN 
LARGER_FOUND : BOOLEAN := FALSE ; 
begin 


while CURRENT /= null and not LARGER_FOUND loop 
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if CURRENT.LEVEL » A RECORD.LEVEL then 


LARGER, FOUND :- TRUE ; 
else 

PREVIOUS := CURRENT ; 

CURRENT s= CURRENT. NEXT; 
end if ; 
end loop; 
A_RECORD.NEXT := CURRENT ; 
if PREVIOUS = null then 

HEAD : 2A RECORD ; 
else 

PREVTOUS NEXT: = A RECORD ; 
end if ; 


end INSERT D record; 


KA AAA A A A oe ode A A AA AA AA AA A AA AA A kA Ak Ak kk kA kk Ak kk kk kk kk kk Ak kk Ak kk kk 
-- Search for target step. Return the position and 


-- previous if found, 
=- " Record nobp9found " if not found. 


procedure FIND_DESIGNER (HEAD OD ION he 
D_INDEX : in natural; 
d name : out string) is 
POSITION =~; D LINK :STHEAD ; 
Ko Mmatural =I; 
begin 
while POSITION /= null and K /= D_INDEX loop 
POSITION := POSITION.NEXT ; 
k := k+l; 
end loop ; 
d_name := POSITION.D_name; 


end FIND_DESIGNER ; 


— Lock ck ck ck ck ck ck ck ck ck ck ck ce AAA AA A AAA AAA A A A e A A e A e e e A A A AA A A A oo xoc ox o ox ox 


procedure set successors(LIST : in out LINK) is 


CURRENT : LINK -= LIST: 
currenti: LINK; 
begin 


while CURRENT /= null loop 
if size(CURRENT.PREDECESSORS) /= 0 
then 
Cürrenti:=LIST; 
while current /= null loop 
1f member (currentl.step_1ld, 
CURRENT. PREDECESSORS) 
then add(CURRENT.STEP ID, 
currentl.successors); 
end if; 
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currenti := currentl nese 


end loop; 
end if; 
CURRENT == CURRENT ANE ; 
end loop; 


Send Vseersvecessora, 
e Ek kk Ak kk kk kk Ak kk Ak kk kk Ak kk kk kk Ak kk kk Ak kk kk kk kk Ak kk kk kk Ak kk kk kk kk kk 
-- resetting the in degree of the steps in the step list 
-- for rescheduling 
procedure RESET IN DEGREE(LIST : in out LINK) is 
CURRENT <- LIN. = sks i. 
begin 
while CURRENT /= null loop 
CURRENT. INS DEGREE i= 
size(CURRENT. PREDECESSORS) ; 
CURRENT :z GEURRENTNNEXT; 
end loop; 
end RESET IN DEGREE; 


KA AA AAA AAA AAA RAR RRA AA RA AAA ARA RRA AA ARA AAA AAA AA AA AA AAA AR AR 


-- creating a new schedule record 
procedure CREATE SCHEDULE RECORD ( 
S ID : in natural; 
TIME1 : in natural; 
TIME2 : in natural; 
D NO -man natural; 
S LEVEL: in EXPERTISE. LEVEL; 
D LEVEL:in EXPERTISE. LEVEL) is 


begin 
NEW_S RECORD — new SCHEDULE RECORIES 
NEW S, RECORD.STEP ID :- S ID; 
NEW S RECORD.START TIME :z TIMEI; 
NEW S RECORD.FINISH TIME :- TIME2; 
NEW S RECORDSBESTGNERSNOme-- DSNOE 
NEW S RECORD.SSEP LEVEL -;=S_ LEVEE: 
NEW S RECORD.DESIGNER LEVEL :- D LEVEL; 


end CREATE. SCHEDULE. RECORD; 


A ACA AAA AA RA AA AA ARCA RCA AA A coke oce cde de ode coke ode oce ode oce oe ck oce check ode oce oe ck oce oce A A e e AR RRA RA A x 


-- PRINTING A SCHEDULE HEADING LINE BEFORE PRINTING 
-- ANY RECORD. 
procedure SCHEDULE RECORD. HEADING is 
begin 
put (“STEP ID S LEVEL D_NAME 
OIART TIME “"ETNTSHE TIMES"): 
new line; 
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new line; 
end SCHEDULE. RECORD HEADING ; 


-- display a record given its position in the list. 
procedure DISPLAY, SCHEDULE, RECORD( 

CURRENT : in LINK1; 

my list : D LINK; 


devecbpor: in vector ) 1s 
my_index : natural; 
mm name  : string(1..16); 
begin 
SETDSCORDCD 
Testi to pra. put (CURRENT STEP ID); 
SET COL(11T),; 
enu_10.put (CURRENT.STEP_LEVEL) ; 
SIEGE 
if CURRENT.DESIGNER, LEVEL = high then 
I index :- CURRENT.DESIGNER NO - 


d_vector(1)+d_vector (2); 

elsif CURRENT.DESIGNER_LEVEL = medium then 
my_index := CURRENT.DESIGNER_NO « d vector(1); 

else 

my_index := CURRENT.DESIGNER, NO ; 
end if; 
FIND DESIGNER (my list, my index, my name); 
put (my name); 


SET OE S je 

test io pkg.put(CURRENT.START TIME); 
SETEGOB(4S), 

test io pkg.put(CURRENT.FINISH, TIME); 
new line; 


end DISPLAY SCHEDULE, RECORD; 


-- print all the records in the SCHEDULE list. 
procedure PRINT ALL SCHEDULE. RECORDS ( 
HEAD "OD BAENKI: 
my list : D, LINK; 
d vector: in vector ) is 
CURRENT : LINK1 := HEAD ; 
begin 
while CURRENT /= null loop 
DISPLAY SCHEDULE, RECORD (CURRENT,my. list, 
d vector) ; 
CURRENTE = URRENT. NEXT ; 
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a-o- Woo X ok ck ox 


ESLENE DAL 


end Loop: | 

end PRINT ALL, SCHEDULE. RECORDS ; 

ze kk Ak Ak kk kk kk Ak kk kk kk kk kk Ak kk Ak kk kk kk kk kk kk kk kk kk Jd d Jd 22 
-- PRINTING A STEP HEADING LINE BEFORE PRINTING ANY 
-- RECORD. 
procedure STEP RECORD HEADING is 
begin 
put('STEP _IÐ DEADLINE PEESHRITYSSPREDESE SUCCESS 
N DEGREE) 
new_line; 


new_line; 
end STEP RECORD HEADING ; 


-- display a record given its position in the list. 
procedure DISPLAY STEP RECORD(CURRENT :in LINK ) is 
templi : natural; 


begin 
SET CUINA) * 
testo. pkg.putiCURRENT. STEP IDA 
ERSTEN 
test io pkg.put (CURRENT.DEADLINE); 
SEIS RE 
test io pkg.put (CURRENT. PRIORITY); 
SET COL (3 ie 
put_set (CURRENT. PREDECESSORS) ; 
SET COL (208 
put, Set (CURRENT . SUCCESSORS) ; 
SET COL(49); 
enu io.put (CURRENT.EXP LEVEL); 
SET_COL (6T) 
test io pkg.put(CURRENT.IN DEGREE); 
new line; 


end DISPDAY-S'ITEPEREGSSRIBE 


-- print all the records in the STEP list. 
procedure PRINT ALL STEP RECORDS(HEAD :in LINK ) is 
CURRENT : Eier 
begin 
while CURRENT /= null loop 
DISPLAY_STEP_RECORD (CURRENT) ; 
CURRENT T: = C C URRENTINEXI ; 
end loop; 
end PRINT_ALL_STEP_RECORDS ; 
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-- print all the records in the READY QUEUE. 
procedure PRINT ALL. QUEUE RECORDS(HEAD:in LINK ) is 
CURRENT :T LINK =. HEAD. - 
begin 
while CURRENT /= null loop 
DISPLAY STEP RECORD (CURRENT) ; 
CURRENT = (CURRENT. NEXT READY ; 
end loop; 
end PRINT_ALL_QUEUE_RECORDS ; 


Lock ck ck ck ck ck ck ck e ck de ck ck cock de ode ode ode ode oe coke oe ode oce ode ode ck coke oe ode ode coke oe ode ode ode oce ode ck oce coke cde A A A A A A A AA A A A A A x 


-- DISPLAY THE MAIN MENU. 
procedure SCHEDULER MENU is 


begin 
new line; 
set col(25); put("MAIN MENU"); new line; 
set col(25); put("---------- "); new line(2); 


set col(10); put("[1] schedule steps according 
to their deadlines"); 

new line; 

set col(10); put("[2] schedule steps according 
to their start time"); 

new line; 

set col(10); put("[3] schedule steps according 
to (deadline + start time)"); 

new_line; 

set col(10); put ("[4] schedule steps according 
pouuerr laxity "); 

new line; 

cerecoub T0) pui" Ir5)lwBrrnt sehedule"); 

new line; 

set col(10); put("[6] Print ready queue"); 

new line; 

set col(10); put("[7] Print a particular step"); 

new line; 

Semmcol (10) souk el Print step list"); 

new_line; 

set col(10); put("[9) Quit"); new line(3); 

set col(10); put("Enter the number of your choice 
Bp 


end SCHEDULER, MENU ; 


— Lok ck dede ode ode ode ck ck ck ck de ode ode ode oe ode oce oe coke oe oce ode ode coke oce ode coke ode oe ode oce ode coke oe ode ode ode cde A A A A A ode ck ode ode ode A A A A de A A A e 


-- Linking a step to the ready list in order of its 
-- deadline. 
procedure INSERT ORDER. DEADLINE |( 
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R QUEUE NOE ENE 


AWRECORD : in LINK ) S 
CURRENT .: LINK :- R QUEUE ; 
PREVIOUS : LINK :- null ; 
LARGER, FOUND : BOOLEAN :- FALSE ; 
begin 


while CURRENT /- null and not LARGER FOUND loop 
if CURRENT.DEADLINE » A RECORD.DEADLINE then 


LARGER. FOUND :- TRUE ; 
else 

PREVIOUS := CURRENT; 

CURRENT ž := CURRENTE NEXT READ 
end if ; 
end loop; 
A RECORD NEXT READY := CURRENT; 
if PREVIOUS = null then 

R QOUEUE := A RECORD ; 
else 

PREVIOUS NEXT READY := A RECORDE: 
cend ira 


end INSERT_ORDER_DEADLINE; 


2 AAA A AAA AA AAA AAA AA AAA AAA AAA AAA AAA AAA AAA AAA AAA A AAA A AR 


-- Linking a step to the ready list in order of its 
-- start time. 
procedure INSERT. ORDER, START TIME(R, QUEUE, 

A RECORD : in out LINK ) is 


CURRENT LUNES STRESS UE UE 
PREVIOUS" LINK := null ; 
LARGER_FOUND : BOOLEAN := FALSE ; 
begin 


while CURRENT /= null and not LARGER_FOUND loop 
if CURRENT.EARLIEST_START_TIME > 
A RECORD.EARLIEST START TIME 


then 

LARGER, FOUND :- TRUE ; 
else 

FREVLOUS  :="GURRENT = 

CURRENT := CURRENT NEXT READ F. 
end if ; 
end loop; 
A-RECORD.NEXT READY == CURRENT =; 
1£ PREVIOUS = null then 

R_QUEUE. : = MA RECORD; 

else 
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PREVIOUS .NEATSREADY <= A RECORD ; 
end if ; 
end INSERT ORDER, START TIME; 


— Lock ck ck kk kk kk kk kk kA Ak Ak kk Ak Ak kk A Ak kA Ak AAA A AAA A A A ck ck ok ook ook ck AA A AA A oko ok ok e 


-- Linking a step to the ready list in order of its 
==- start time. 
procedure INSERT PENDING ORDER, START TIME(R, QUEUE, 
A RECORD : in out LINK ) is 


CURRENT : LINK EU BUE > 
PREVIOUS : LINK := null ; 
LARGER_FOUND : BOOLEAN := FALSE ; 
begin 


while CURRENT /= null and not LARGER_FOUND loop 
if CURRENT.EARLIEST START TIME » 
ACRECORD. EARLTEST START TIME then 


LARGER FOUND TRUE ; 
else 
PREVIOUS :=ICURRENT ; 
CURRENT = CURRENT NEXT PENDING ; 
end if ; 
end loop; 
A RECORD. NEXT_PENDING := CURRENT ; 
if PREVIOUS = null then 
R QUEUE :- A, RECORD ; 
else 
PREVIOUS.NEXT PENDING :- A, RECORD ; 
end if ; 


end INSERT_PENDING_ORDER_START_TIME; 


e ok ck ck ck ock ck ck ck ck ck ck ck ck ck ck ck ck kk kk kk kk kk Ak Ak kk kk kk kA kk kk kk kk kA kk kk Ak ck ck ck ko 


-- Linking a step to the ready list in order of its 

-- (DEADLINE + start time). 

procedure INSERT_ORDER_MIXED(R_QUEUE, A_RECORD : in 
out LINK ) 1s 


CURRENT: CIN. S R OURUE ; 
PREVIOUS : LINK := null ; 

LCARGER FOUND : BOOLEAN := FALSE ; 
begin 


while CURRENT /= null and not LARGER_FOUND loop 

1f (CURRENT.EARLIEST_START_TIME + 
CURRENT DEADLINE) = 
(A_RECORD.EARLIEST_START_TIME + 
A_RECORD . DEADLINE) 

then LARGER, FOUND :- TRUE ; 

else 
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PREVIOUS := CURRENT ; 
CURRENT : = "€URRENT . NENT READ: E 
end if ; 
end loop; 
A RECORD.NEXT_ READY :;:= CURRENT ; 
if PREVIOUS = null then 
R QUEUE := A RECORD 
else 
PREVTOUS ES 
end if ; 


end INSERT ORDER, MIXED; 


zk kk kk kk kk kk kk kk Ak kk kk kk kk kk kk kk kk kk kk kk Ak kk kk kk kk kk kk kk kk 


-- Linking a step to the ready list in order of its 
-- laxity (deadline - (est + duration)). 
procedure INSERT ORDER, LAXITY(R, QUEUE, A, RECORD 
in out LINK ) is 


CURRENT —  : LINK := REO UE DE 
PREVIOUS : LINK :- null ; 

LARGER, FOUND : BOOLEAN := FALSE ; 
begin 


while CURRENT /= null and not LARGER_FOUND loop 
if (CURRENT.DEADLINE - 
(CURRENT.EARLIEST START TIME + CURRENT.ESTIMATED_DURATION)) 
> (A RECORD.DEADLINE -(A RECORD.EARLIEST START TIME + 
A RECORD.ESTIMATED. DURATION)) 


then LARGER, FOUND :- TRUE =; 
else 
PREVIOUS : = CURRENTI:; 
CURRENT := CURRENT NEAT READ i 
end if ; 
end loop; 
A RECORD.NEXT READY := CURRENTE; 
1f PREVIOUS = null then 
R OUEUE := -A RECORD ; 
else 
PREVIOUS.NEXT_READY := A_ RECORD ; 
end if ; 


end INSERT ORDER, LAXITY; 


KA AA A A A AAA A AAA AAA AAA AA AA AAA AAA AAA AA AAA AA A AAA AA AA AA A x 


-- Linking a schedule record to the tail of the 

-- schedule list 

procedure INSERT. NEW SCHEDULE. RECORD(LIST ,TAIL, 
A RECORD : in out LINK1) is 


begin 


982 


LEALES IA m 


Chen VAPRECORE NEXT := LIST; 
LIST := YARECORD ; 
else 
TANIT NEXT := A RECORD ; 
end if; 
TAIL :z A"URECORDEE 


end INSERT, NEW SCHEDULE RECORD; 


ak kk Ak che che de ce dece dece oce ode che A AAA AAA AA A A AA AA AA AA A Ak Ak Ak e kk Ak A A A A ARA A A A A A A ck 


-- Linking a schedule record according to its 

-- expertise level 

procedure INSERT. ORDER EXP LEVEL (HEAD , A RECORD : 
inout LINK xs 


CURRENT : LINK1 :- HEAD ; 
PREVIOUS BENE := null; 

LARGER, FOUND : BOOLEAN :- FALSE ; 
begin 


while CURRENT /- null and not LARGER FOUND loop 
if CURRENT.DESIGNER, LEVEL » 
A RECORD.DESIGNER, LEVEL then 


LARGER: FOUND := TRUE S 
else 

PREVIOUS := CURRENT ; 

CURRENT = CURRENT NEXT > 
end iTi 
end loop; 
A RECORD.NEXT :- CURRENT ; 
if PREVIOUS - null then 

HEAD |o AO RECORD ; 
else 

PREVIOUS.NEXT :- A, RECORD ; 
endete 


end INSERT. ORDER EXP. LEVEL; 
Li kk kk kk kk Ak Ak kk kk kk kk kk Ak Ak kk kk kk kk kk kk Ak kk kk kk kk kk kk kk kk kk kk kk kK 
-- Linking a schedule record to the schedule in 
-- order of its start time. 
procedure INSERT ORDER, START TIME (HEAD , A RECORD 
In OUE LINKI ) IS 


CURRENT : LnINESWE:- HEAD ; 
PREVIOUS : LINK1 := null; 

LARGER, FOUND : BOOLEAN :- FALSE ; 
begin 


while CURRENT /- null and not LARGER, FOUND loop 
lf CURRENT.START TIME »- A*"RECORD.START TIME then 
LARGER, FOUND :- TRUE  ; 
else 
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PREVIOUS := CURRENT 


CURRENT = CURRENIMNE 10 
end if ; 
ena loop; 
A-REGORDONEXT :—EGURRENT F: 
if PREVIOUS - null then 

HEAD := A_RECORD ; 
else 

PREVIGUS.NEXT :=5A_RECORD 
end if ; 


end INSERT ORDER START" TIME; 
e Ek Ak Ak kk kk kk kk Ak kk Ak kk Ak kk kk Ak kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk kk SR 
-- Linking a schedule record to the schedule in 
-- order of its step id. 
procedure INSERT_ORDER_STEP_ID (HEAD», A REGOPIE 
+n*out LINKS 


CURRENT : LINKI -= HEAD ; 
PREVIOUS : LINKI := numm 
LARGER_FOUND : BOOLEAN := FALSE ; 
begin 


while CURRENT /= null and not LARGER_FOUND loop 
if CURRENT.STEP_ID >= A_RECORD.STEP_ID then 


LARGERSRFOUND»= : = "PRUE ; 
else 
PREVIQUS=== CURRENT 
CURRENT ‘= CURRENDANEAT 
end if ; 
end loop; 
A RECORD NEXT == CURBENEEM 
lf PREVIOUS = null then 
HEAD := A_RECORD ; 
else 
PREVIOUS NET :=eAuRECORM® ; 
end if ; 


end INSERT_ORDERS®SSTEP™2D ; 


AA AA AAA AAA AAA AA AA AAA AA AA AA AAA AAA AA AA AAA AAA AA A AAA A AA AA A 


procedure LEVEL_MINMUM (MATRIX : in DESIGNER, MATRIX; 
LEVEL : 1n EXPERTISE_LEVEL; 
MAX LEVEL : in natural; 
ROW_LENGTH : in vector ; 
T5, m : in out natural) is 
MIN : natural; 
temp : natural := EXPERTISE_LEVEL'POS (LEVEL) + 1; 
begin 
L := temp: 
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NAMES ls 
MIN -= 000; -- MATRIX ( temp, 1); 
for k IN temp..MAX LEVEL loop 
if ROW LENGTH (k) /= O then 
for i IN 1..ROW LENGTH (k) loop 
if MIN > MATRIX( k,1) then 
MING =) MATERIA ( k i) ; 
na Fk: 
Jesi, 
end if; 
endi oops 
end if; 
EE 
end LEVEL MINMUM; 
Lu an ck ck ck ck ck kk kk Ak kk kk kk kk kk kk kk kk kk kk kA kk kk kk kk kk Ak kk kk kk kk kk kk kk 
function ROW MINMUM (MATRIX : 1n DESIGNER, MATRIX; 
LEVEL >: in EXPERTISE_LEVEL; 
ROW_LENGTH : in vector) return 
natural is 


temp : natural : PE PERMSE_ LEVEL'POS(LEVEL): + 1; 
MIN JS! natural; 
begin 

D 


MIN := MATRIX(temp, J); 
for i in 1..ROW LENGTH(temp) loop 
if MATRIX( temp,i) » MIN then 
MIN :- MATRIX ( temp, i) ; 
J :2 1; 
ene dt. 
end loop; 
1£ ROW_LENGTH(temp)=0 then 
return. L000; 
else 
return dJ; 
ues 
end ROW MINMUM; 

— — E kk kk GE EGG E E GEI d d d d d dd dE JEJE GE db dE d d JE d JJ d JJ d d Ak kk db Jb db db dE dE dE dE NE NE NE dE 
-- Search for target step. Return the position and 
-- previous if found, 

-- " Record not found " if not found. 


procedure FIND STEP (HEAD INE 
S ID : in natural; 
POSITION Tn OUE LINK; 
PREVIOUS ~ in Out LINK; 
FOUND : in out boolean) is 
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begin 


POSTITSINA == TEA 
BREVISUS DUUM 
FOUND ¿= FALSE; 


while POSITION /= null and not FOUND loop 
if POSITION] SWSP ID Ss. 1D then 


FOUND := TRUE ; 
else 
PREVIOUS := POSITION; 
POSTITONA?= BOSSES ITE 
end if ; 
end loop ; 


if FOUND - FALSE then 
put("STEP NOT FOUND "); 
end if ; 
end FIND STEP ; 
— oko ck ck cock ck ck ck ook ook ok ck ck ook o ook ck ok ook ck eock ck ook ook ook ook ock ck ck o o ck oc ck ook ck ck ook ook ook ooo ck oko ck okocko ck ox ko ko ko x 
-- Delete the step found by search and relinks the step list. 
procedure DELETE FROM STEP LIST (HEAD : 1n out CINES 
POSITION : in LINK; 
PREVIOUS : in LINK) is 
begin 
if HEAD = POSITION then 
HEAD : =SHEADSNEXT:; 
else 
PREVIOUS .NEXT := POSITION NEWS 
end if; 


end DELETE_FROM_STEPs LIST; 


= Lock ck ck ck ck ck ck ck ck ck cock ck ck ck ck ck ck ck ck ck ck coc oe cock oco ck A Ak kk Ak kk Ak kk ck ké kk kk kk kk A e e e e 


-- Delete the step found by search and relinks the step list. 
procedure DELETE FROM PENDING LIST (HEAD : in out LINK; 
POSITION : in LINK; 

PREVIOUS : in LINK) is 


begin 
if HEAD = POSITION then 
HEAD := HEAD.NEXT PENDING; 
else 


PREVIOUS .NEXT PENDING := 
POSITION.NEXT PENDING; 
end if; 


end DELETE FROM PENDING. LIST; 
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-- Delete a step from the schedule. 
procedure DELETE_FROM_SCHEDULE (HEAD ee EINKI, 
POSITION : in LINK1; 
PREVIOUS : in LINK1) is 


begin 
if HEAD = POSITION then 
HEAD :- HEAD.NEXT; 
else 
PREN TOUS: NEATE = POSITION. NEXT; 
end if; 


end DELETE_FROM_SCHEDULE; 

e kk kk kk Ak kk kk kA kk kk kk Ak kk kk Ak kA kk kA kk kk ké Ak Ak Ak kk kk kk Ak kk kA Ak kk kk Ak 
-- Delete a step from the head of the ready list. 
procedure DELETE FROM READY QUEUE (HEAD: 

in out LINK) is 


begin 
HEAD := HEAD.NEXT READY; 


end DELETE FROM READY QUEUE; 
A AAA AAA AAA A A kk kk ké kk kk Ak kk kk kk kk kA kk kk kk kk kk kk kk kk kk Ak 
-- Decrementing the in, degree of the successors of 

-- a step and adjusting its earliest start time. 
procedure DECREMENT IN DEGREE (STEP, LIST :in out LINK; 
EE cn natural) is 


POSITION : LINK := LIST; 
L Seb. sa STEPI SUCCESSORS; 
k : natural ; 

Kl natural = 0; 
FOUND : boolean := FALSE; 
begin 


A IA 
ET Eelere kl «s saize(t) loop 
I POSITION. SIEE ID: 
if member(k, t) then 
Jf POSITIONSEARLIBEST-START TIME < finish t 
then POSITION-EARBETEST START TIME :- finish t; 


end if; 

POSITION.IN-DEGREE :- POSITION.IN DEGREE - 1; 
ki, Rc 

end if; 

POST TON =- REPOSITION. NEXT: 
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end loop; 
end 1f; 
end DECREMENT_IN_DEGREE; 


— Lok ck ck ck ck ck ck ck ck ck ck ce ose ce che A RA e A A A A oce ode ode ode oce oe ode ode ode eode ode cde cde ode cde ce AAA AAA AA AAA AA a 


function list_size(LIST : in LINK)return naturals 


current : link := LIST; 
K Deburdogliq 0. 
begin 
while current /- null loop 
Ios TN E I 
current : = Current NEXT, 
end loop; 
return K; 


end list_size; 


AA AAA d: Ads d dg Jd: A A AA A AAA AAA A AAA RA KEKE KEK KK 


-- checking the in, degree of the successors of the 
-- Tassigned step this works with deadline 
-- heuristic. 


procedure CHECK IN. DEGREE( 
STEP AR OQUEUE T PLI T * in out LINK; 
finish t : in natural) is 
POSITION : LINK LEST; 
PREVIOUS =: "EINK Ime A 


L.:; set :NSTEP-SUGCESSORS; 
tl: set; 

k : natural; 

FOUND : boolean :- FALSE; 
begin 


if size(t) /= 0 then 
while POSITION /= null loop 
k := POSETION. SHEP ID; 
if member(k, t) then 
if POSITION.EARLIEST START TIME « 
finish t 
then POSITION.EARLIEST_START_TIME := 
finishte, 
end if; 
POSITION. IN_DEGRBE «+= POSITION.IN DEGREESSMSE 
if POSITION.IN DEGREE = 0 


chen 
INSERT PENDING. ORDER START TIME (R, QUEUE, 
POSITION); 
POSITION := POSTIITSONSNEXT: 
else 
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PREVIOUS := POSITION; 
POSTEION T: = POSITION. NEXT; 
end if; 
else 
PREVIOUS := POSITION; 
POSITION T: = POSITION. NEXT; 
end if; 
end loop; 
end if; 
end CHECK_IN_DEGREE; 


EE IESJ 43435444344 4 4 2 JJ d d 4424 4 4 2 4 4 Jd d d dd JJ 2 4 4 4 4 2 4 4 d JJ d d Jb d d do dbi 


-- checking the in degree of the successors of the 


-- assigned step 
-- This works with start time heuristic. 


procedure CHECK IN DEGREE 1 (STEP, LIST : in out LINK; 
REQUEUE : in out LIST VECTOR: 


finish_t : in natural) is 
POSTTIÓN -= LINK == LIST: 
PREVIOUS : LINK := null ; 
C: set =" STEP. SUCCESSORS; 
t1: set; 
k; kl: natural; 
FOUND : boolean := FALSE; 
begin 


if size(t) /= 0 then 
while POSITION /= null loop 
k -= POSITION.STEP ID; 
if member(k, t) then 
if POSITION.EARLIEST START TIME « 


fO S st 
then POSITION.EARLIEST START TIME 
:z finish. .t; 


end if; 
POSITION.IN. DEGREE :- POSITION.IN. DEGREE - 1; 
if POSITION TNSDEGREE = 0 
then 
ki -=> 
EXPERTISE_LEVEL'POS(POSITION.EXP_LEVEL) + 1; 
INSERT_ORDER_START_TIME (R_QUEUE(k1), POSITION); 


POSITION := POSITION.NEXT: 
else 

Pee Ou. += "POSITION: 

POSITION := POSITION. NEXT: 
end if; 
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else 


PREVIOUS := POSITION; 
POSITION := POSITION: NEw 
end mif ; 
end loop; 
end if; 


end CHECK IN DE CREERSE 


kk kk kk kk kk kk kk kk kk kk ES 


-- checking the in degree of the successors of the 
-- assigned step. This works with start time heuristic. 


procedure CHECK IN DEGREE 2 (STEP, LIST : in Out LINK; 


R. QUEUE : 1n out LIST VECTORS 
tang sheet : in natural) is 
POSITION -FLCINK E CUPIS 
PREVIOUS : LINK := null ; 
t = Set -= STEP. SUCCESSORS; 
t1: set; 
k, k1 : natural; 
FOUND : boolean := FALSE; 
begin 


if size(t) /= O then 
while POSITION /= null loop 
k := POSITION.STEP_ID; 
if member (k, t) then 
if POSITION.EARLIEST START TIME « 


finish t 
then POSITION.EARLIEST_START_TIME 
:= finish e 


end if; 
POSITION.IN_DEGREE := POSITION.IN_DEGREE =- T; 
if POSITION.IN_DEGREE = 0 

then 
KI := EXPERTISE. LEVEL'POS(POSITION.EXP LEVEL) 

+ 1; 
INSERT_ORDER_START TIME (R_QUEUE(k1), POSITION); 

POSITION» := POSITION.NEREAXUNME 


else 
PREVIOUS POSITIONS 
POSPTION := POSITION: NEXIS 
end if; 
else 
PREVIOUS POSITION; 
POSITION := POSITION. NEXT; 
end if; 
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end loop; 
end if; 
end CHECK_IN_DEGREE_2; 
oae Ck ok ck ck ck oce ck ck ook ck oe oe de e oe oe ode ok ok o ook ode oe ode oe ode ook oe ook oe he oe ode ok oe ok oe ok oe oe ok oe ok oe ok oe ooo oe ooo eoo ox kx ox ox 
-- checking the pending list for ready steps of a 
-- certain level and insert them into the 
-- corresponding ready list according to their 
-- deadlines 


procedure GET READY STEPS ( 
EX Kk in natural; 
LISTA in out LINK; 
R_QUEUE : in out LIST_VECTOR)}) is 


POSLTION “Seb tink 295b5T 

PREVIOUS : LINK := nul lee 
temp : natural; 

FOUND : boolean := FALSE; 
begin 


while POSITION /= null loop 
temp := EXPERTISE_LEVEL' POS (POSITION. EXP_LEVEL}) 
+ 1; 
if POSITION.EARLIEST START TIME <= t and temp 
>= K 
then 
INSERT _ ORDER DEADLINE (R, QUEUE(temp) , POSITION); 
DELETE FROM PENDING. LIST(LIST, POSITION, 


PREVIOUS); 
POSITION :- POSITION.NEXT PENDING; 
else 
PREVIOUS ;:= POSITION; 
POSITION := POSITION. NEXT PENDING; 
end if; 
end loop; 


end GET_READY_STEPS; 
> lock ck ck ck ck ck oe ook oe ok oe ode oce ck ook oe oe oe ook oe oe oe oe oe ode ode ook ode ook ook oe oe oe ode oe ode oe oe ode ode AA AA AA AA AAA A AA RA RA RR 
-- checking the pending list for ready steps of a 
-- certain level and insert them into the 
-- corresponding ready list according to 
-- their (deadlines + start times). 
procedure GET READY STEPS 1 (t ,k : in natural; 


LIST, R. QUEUE : in out LINK) is 
POSITION CINK -> LISPE; 
PREVIOUS BENE onu ; 


temp : natural; 
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FOUND" + Boolean" := RAISES 
begin 
while POSITION /= null loop 
temp:= EXPERTISE_LEVEL'POS(POSITION.EXP_LEVEL)+1; 
1f POSITION.EARLIEST_START_TIME <= t and temp = k 
then 
INSERT_ORDER_MIXED (R, QUEUE, POSITION); 
DELETE. FROM, PENDING. LIST(LIST,POSITION, 


PREVIOUS); 
POSITION :- POSITION.NEXT PENDING; 
else 
PREVIOUS := POSITION; 
POSITION ™=:;:= POSITIONMNEXT PENDINGS 
end if; 
end loop; 


end GET_READM_STEPS ME 
ZA E kk kk kk Ak kk kk kk kk kk kk Ak Ak Ak kk kk kk kk kk Ak kk kk Ak kk Ak kk Ak kk Ak kk kk kk kk xk 
-- checking the pending list for ready steps of a 
-- certainlevel and insert them into the 
-- corresponding ready list according to their 
== LAXITY. 
procedure GET_READY_STEPS_2 (t ,k : in natural; 
LIST, —R QUEUE : in out LINKS 


POSITION LUNES EET 
BREVIOUS : LINER 
temp : natural; 
FOUND : boolean := FALSE; 
begin 
while POSITION /- null loop 
temp:- 


EXPERTISE LEVEL'POS(POSITION.EXP. LEVEL) + 1; 
if POSITION.EARLIEST START TIME <= t and temp 
then 
INSERT _ORDER_LAXIMNY (ReQUEUES POSTTIONIS 
DELETE_FROM_PENDING_LIST(LIST,POSITION, 


PREVIOUS) ; 
POSITION := POSITION.NEXT_PENDING; 
else 
PREVIOUS. <=. POS PRN. 
POSITION := POSITION. NEXT? PENDING? 
end if; 
end loop; 


end GET READY. STEPS 2; 


— Lock ck ck ck ck ck ck ck ck ck ck ck che oce oe oe oce AA AAA AAA A AA A AA AAA AAA AAA AAA AAA NA kk de 
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-- get the top steps in the ready list and 
-- insert them into the corresponding ready list 
-- according to their deadlines 


procedure GET READY STEPS (LIST Pio LINK: 
ESQUEUE :3n out 
LIST_VECTOR) is 


POSTETTON LINK BIST: 
PREVIOUS: TS wil: 
temp : natural; 
templ : natural; 
begin 
if POSITION /= null then 
temp := POSITION.EARLIEST_START_TIME; 
end if; 


while POSITION /= null and then 
POSITION. EARLIEST _START_TIME = temp loop 


tempi := 

BAPERT SES GEV Ei POS @POSTTION. EXP_LEVEL) 
+1; 

INSERT ORDER START TIME (R QUEUE(templ), 


POSITION); 


DELETE_FROM_PENDING_LIST(LIST, POSITION, 
PREVIOUS) + 
POSITION <= POSTTION.NEAT_ PENDING; 
end loop; 
end GET_READY_STEPS; 
== ae KKK KEKKEKK KEKE KKK KKK KEKKKEKKK KKK KKK KKKEKKKK KKK KKK KKK KKK KK KKK KK KKK 
-- get the top steps in the ready list and 
-- insert them into the corresponding ready_list 
-- according to their (deadlines + start times). 


procedure GET READY STEPS 1 (LIST :in out LINK; 
R_QUEUE : in Out LIST VECTOR) is 


pBoSTITONILS BÁBBNERe EST 
PREVIOUS aA LINKE amull:s 
temp : natural; 
templ : natural; 
begin 
lt POSITION Zement then 
temp :- POSITION EARLIEST START_ TIME ; 
end if; 
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while POSITION /= null and then 
POSITION.EARLIEST_START_TIME = temp loop 
templim = 
EXPERTISE LEVEL'POS(POSITION.EXPOSBERHUMEN 
+ 1; 
INSERT ORDER MIXED (R_QUEUE (temple 
POSITION); 
DELETE FROM PENDING LIST(LIST,POSIUBEESIE 
PREVIOUS); 
POSITION := POSITION.NEXT_ PENDING 
end loop; 
end GET READY STEPS 1; 
ZA A A AA AAA AA AA AAA AA AA AAA AAA AA AA A kk kk kk kk kk kk kk kk kk Ak o eoo eo o x kx kx e 
-- get the top steps in the ready list and 
-- insert them into the corresponding ready list 
-- according to their Laxity. 


procedure GET READY STEPS 2 (LIST :in out LINK; 
R QUEUE: in out LIST_VECTOR =n. 


POSITION ; LINK ELST 
PREVIOUS : LINK := null; 
temp : natural; 

templ : natural; 


begin 
if POSITION /= null then 
temp := POSITION.EARLIEST_START TIMES 
end 1f; 


while POSITION /= null and then 
POSITION.EARLIES'T START TIME = temp TOER 
templ := 
EXPERTISE_LEVEL' POS (POSITION. EXP_LEVEL) 
+ 1; 
INSERT ORDER LAXITY (R QUEUE(templ), 
POSITION); 
DELETE FROM PENDING. LIST(LIST,POSITION, 
PREVIOUS); 
POSITION <== POSITION. NEXT _ PENDING? 
ena loops 
end GET READY STEPS 2; 


AAA ACA ACA A AAA A AAA AAA A AA ACA AAC A A AAA A A AAA AA A A A A AA AAA AAA AA AR 


procedure SUGGEST DEADLINE. SLIP(STEP : in out link; 
VALUE :in natural) is 


answer :character :- 'n'; 
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begin 
put ("in-feasible schedule: step # "); 
test_10_pkg.put (STEP.STEP_ID); new_line; 
put ("suggested deadline should be >= "); 
test io pkg.put (VALUE); new line; 
put ("Would you like to change it? Answer(y/n)"); 
get (answer) ;new_line; 
1f answer = 'y' or answer = 'Y' 
then 
put ("Enter the new Deadline "); 
get (STEP.deadline) ; 


STEP.DEADLINE. CHANGE :- TRUE; 
else 

put, line("INFEASIBLE SCHEDULE"); 
end if; 


end SUGGEST_DEADLINE_SLIP; 


— Lock ck ck ck ck ck ck ck ck AA AA RARA RA ARA A AAA AA AA AAA AAA AR RA AA A A RA AAA RARA AA KA A A KE 


-- checking the feasibility of the schedule with 
-- each step in the ready queue 
procedure STRONGLY FEASIBLE (R, QUEUE O INE 
MATRIX DTI 
DESIGNER, MATRIX; 
D VECTOR : in vector; 
MAX LEVEL : in natural; 
FEASIBLE .: in out boolean ) is 


CURRENT. LINEA: R QUEUE = 
PREVIOUS : LINK := null; 
temp, templ natural 
J natural ci 
L "matura :=. 1; 
MIN : natural :=0 ; 
begin 
FEASIBLE :2 -TRUBE ; 


while CURRENT /= null and FEASIBLE loop 
LEVEL MINMUM 
(MATRIX,CURRENT.EXP LEVEL,MAX LEVEL, 

DEVECTORSL AT): 
-- put_line (" pass 10 "); 
MIN := MATRIX (L,J); 
if MIN >= CURRENT.EARLIEST_START_TIME 
then temp := MIN; 
else temp :- 
GURRENTAEARELIEST START TIME; 

end if; 
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temp := temp + 
CURRENT.ESTIMATED DURATION; 
iF stempe > CURRENT. DEADLINE 


then 
SUGGEST_DEADLINE_SLIP (CURRENT, temp) ; 

-- FEASIBLE := FALSE; 
end ir. 
if temp > CURRENT.DEADLINE then 

FEASIBLE; = FALSE; 

end if; 

PREVIOUS EE ; 
CURRENT Te CURRENT. NEXT READY; 
end loop; 


end STRONGLY FEASIBLE; 


ACACIA AAA AA AAA AAA AA AAA AAA AA AA AA AAA AAA AAA AA AA RA AAA A d d d: 


-- Assign a step to a designer according to its deadline 
-- and its expertise level 
procedure ASSIGN STEP (IR QUEUE : in out LIST VECTOR; 


LIST |: in üt LINK; 
MATRIX win eut 
DESIGNER_MATRIX; 
ROW_LENGTH > in vector, 
M,N : 1n out natural; 
IU >. in naturae 
SCH : in out Dine 
done : out boolean ) is 
K, finish : natural; 
MIN : natural := MATRIX (M,N); 
MINI: natural; 
J |: natüunal f =e 
temp : natural := 05 
temp] : link := R_QUEUE (H); 
begin 
done := TRUE; 
Ko: 


EXPERTISE_LEVEL' POS (temp1.EXP_LEVEL)+ 1; 
J := ROW MINMUM(MATRIX, templ.EXP LEVEL, 
ROW. LENGTH) ; 
lf jwwr000WNthen 


MINI := MATRIX(K,J); 
else MIN1 := 1000; 
en Gees = 
if MIN1 «- templ.EARLIEST START TIME 
then 
temp :- templ.EARLIEST START TIME; 
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finish := temp + 
Gem lRESTIMATED DURATION; 


MATRIX (K,J):= finish; 
M <= K; 
N cs WU 


CREATE_SCHEDULE_RECORN temp1.STEP_IDtemp, 

finish, J,templ.EXP_LEVEL, 

EXPERTISE_LEVEL'VAL(K-1)); 

INSERT ORDER, START TIME(SCH, 

NEW S RECORD); 

DELETE. FROM, READY. QUEUE (R, QUEUE (D) ) ; 

elsif ((M» K) and then (R_QUEUE (M) /= null) and then 
(R_QUEUE (M) .EARLIEST_START_TIME <= MIN)) then 


done := FALSE; 
else 
if MIN »- templ.EARLIEST START TIME 
then temp :- MIN; 
elsetemp :- templ.EARLIEST START TIME; 
end if; 
finish := temp + templ.ESTIMATED_DURATION; 
MATRIX (M,N):= finish; 


CREATE SCHEDULE RECORD (templ.STEP ID, 
temp, finish,N,templ1.EXP LEVEL, 
EXPERTISE LEVEL'VAL(M-1)); 
INSERT ORDER START TIME(SCH, NEW S, RECORD); 
DELETE, FROM, READY, QUEUE (R, QUEUE (L) ) ; 
end if; 
end ASSIGN STEP; 
LL Ln ock ck ck ck de ode che che cde ce de che de ode che che AA AAA AA AA AA AAA A AAA AAA A AAA AA AAA A AAA AA AA RA RAR 
-- reset the step list and the schedule for 
-- incrementing the schedule 
-- with new steps at certain time 
procedure RESET FOR, RESCHEDULING( 
Celeste: in out D LINK; 


LIST ean OUT LINK; 
MATRIX A Oue 
designer matrix; 

d vector : in vector) is 

M,N,index, length : natural; 

step. id, finish t :natural; 

designer ESA A E 

data_file2 E Es 

CURRENT CINK; 

begin 


OPEN (data_file2, IN_FILE, "temp3"); 
WHILE not END OF FILE(data file2) loop 
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get(data file2,step id);skip line(data file2); 
-- test io pkg.put(step. id); 
get (data_file2,finish t); 
-- test 10 pkg.put(finish t); 
skip line(data file2); 
get line(data file2,designer,length); 
for wem lengths. .165 loop 
designer(1) :=' '; 
end loop; 
-- put (designer); 
-- new line; 
-- Skip line(data file2); 
CURRENT = TIMI; 
while CURRENT /= null loop 
if member(step id,CURRENT.PREDECESSORS) 
then 
CURRENT.IN DEGREE:-2- CURRENT.IN DEGREE-1; 
yf CURRENT-«-EARLIEST START TIME «fuimus 
then CURRENT.EARLIEST START TIME :- 
finish t; 
end if; 
end if; 
find designer. position(d list,index, 
designer); 
if index «-d, vector(1) 
then M: =mi, 
N := index; 
elsif index > d_vector(1) and index 
<=(d_vector(1)+d_vector(2)) 


"ehem MW:= 2: 
N := index - d vector(1); 
elsif index » (d vector(1)4 d vector(2)) 
then M :- 3; 
N := index - (d_vector(1)+ d vector ime 
end if; 
EI Tee EE 
then 
MATRIX (M,N) :=finish_t; 
end if; 
CURRENT := CURRENT. NEXT; 
end loop; 
end loop; 


CLOSE (data, f£11e2); 
SC DELETE (data_file2); 
exception 
when NAME_ERROR=> 
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put line("No original schedule"); 
end RESET. FOR, RESCHEDULING; 


-- Search for target step. Return the position and 
-- previous if found, 


procedure FIND DESIGNER POSITION(HEAD : in D LINK; 
D INDEX : out natural; 
d name : in string) is 
POSITION > ih. = HEAD. 
Ko natural -=I 
begin 


while POSITION /= null and then POSITION.D_name /= 
d_name loop 
POSITION := POSITION. NEXT ; 
k := k+l; 
end loop ; 
D INDEX F: = kn; 
end FIND_DESIGNER_POSITION ; 


end scheduler; 


3. Main Programs 


new ecs.a (Manager Interface) A ale ale ade ade ale ade ok ale ade ale ale ade ade ale ale ok ok ade ale ale ale ale ade ale ale ale ale ade ale ale ade oe oe ok 3k 3k 


-- Title : Manager_Interface main program 
-- Author : Salah badr 

-- Date : 25 August 1993 

-- Revised 

== System : SUns/ 

-- Compiler : VerdixAda 

-- Description 


with ECS OPERATIONS; use ECS OPERATIONS; 
with TEXT IO; -- BASIC NUM IO; 

use TEXT IO; =a ke NUM at Oe 

-- Main program. 

package ecs manager is 


Namel NEE IS UPPOLEDB” ; 
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option SERING (IT RIDE 

Name3 |: STRINGUIS 5497 

Name4 EE RIES 

Name5 : STRING(1..64); 

Name6 : STRING (I 64); 

Name7 : STRINGC(1..64)S 

Name8 SES Decet odqi. 

Name9 SERAN (ode 

NameA : STRING. 64); 

NameB : STEE 

NameC SiR ENG Gia 64); 

NameD aspe od 

NameE :. STRENG (1... 64; 

a_name : STRING(1..64); 

an, id STRING 

SELECTOR : naturse: -- 6; 

Length : integer; 

answer |: Character: =1y r 

data_file T FEILET PE; -- logical file definitions 
data_filel : FILE TYPE; -- logical file definitions 


Lon. ck E EEE kk kk kk kk kk kk kk kk kk € 


procedure ECSI; 
end ecs, manager; 


package body ecs manager is 


procedure ECS1 is 


package nat_1o 1S new integer_io(natural); use 
nat_10; 


begin 


put, line("ECS has been entered."); 
put ("Name3 => "); 

put, line (Name3); 

put ("SELECTOR => "); 

put (SELEGCIORIA 

new_line; 


case SELECTOR is 
-- Show the prototypes in the database. 
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when 1 => --show prototypes 
Option: =48"; 
Show_Prototypes (Namel, option); 


when 2 => -- show steps 
OPC an- =" 
Show_Step (Namel, option, Name3) ; 
when 3 => -- show step 


option- "20; 
Show_Step(Namel, option,Name3) ; 


when 4 => -- show schedule 
COG NC E 
Show. Schedule (Namel,option); 
when 5 => --create prototype 
eption:="1'; 


put ("Enter prototype's name: "); 
get line(Name3,Length); 
for umobengthrt54- eege 
Name3 (1):=' ';} 
end loop; 
Create DrototwpeihNamel, option, Nameii: 
put("More subcomponents to add[answer Y/ 
Ng os 
getí(answer); 
skip line; 
while answer-'y' or answer-'Y' loop 
put("Enter component name: "); 
get_line(Name5, Length) ; 
for i in Length+1..64 loop 
Name5 (i):=' '; 
end loop; 
put ("Enter parent component name: "); 
get_line(Name7, Length) ; 
for 1 in Length+1..64 loop 
Name? (1):=' '; 
end loop; 
Add SubComponent (Namel,"4",Name3, 
Eu Name5,"I:1",Name7):; 
put("More subcomponents to add[answer 
po cs 
get (answer); 
skip. line; 
end loop; 
when 6 => --create step 
ODb Sont mque 
Create Step(Namel,option,Name3,Name4); 
when 7 => -- edit step 
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System call("mainstep "&Namel&" 4 "&Name3&" 
"&NameE&" "&Name4&" "&Name5&" "&Name6&" 
"&Name7&" "&Name8&" "&Name9&" "&NameA&" 
"&NameB&" "&NameC&" "&NameD&" > temp5"); 


OPEN(data file, IN FILE, ""temp5"); 
get line(data. file,a, name,length); 
for i in Length+1..5 loop 
a_name(i):=' '; 
end loop; 
if a_name(1) ='s' then 
put, designers (Namel, "2"); 
get sched data(Namel,"0"); 
get sched data, 1 (Namel, "0"); 


main(1); 
elsif a name(1) ='c' then 
put line("Cannot Update a Completed Step"); 
elsif a name(1) -'a' then 


put, line("Cannot Update an Abandoned Step"); 
end if; 
CLOSE (data_file); 


when 8 => -- approve step 


ODU OH c 
Show Step(Namel,option,gName3); 


when 9 => -- schedule step 


put_designers (Namel,"2"); 
get sched data(Namel,Name3); 
get sched data 1 (Namel,"0"); 
main(1); 


when 10 => -- commit step 


ODEON: =e 
Show_Step (Namel,option,Name3) ; 


when 11 => -- Suspend step 


begin 


System call("mainstep "&Namel&" i "&Name3&" 1 > 


temp"); 
OPEN(data filel, IN FILE, "temp"); 
WHILE not END OF, FILE(data filel) loop 
get line(data filel,an. id,length); 
for 1 in Length+1..5 loop 
a 
end loop; 
get_line(data_filel,Name4, length); 
for i in Length+1..64 loop 
Name4(i):=' '; 
end loop; 
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auto mail2 (Name4,an, id); 
end loop; 
put. designers (Namel,"2"); 
get sched data(Namel,"0"); 
get sched data 1(Name1,"0"); 
main(0); 
CLOSE (data_filel); 
exception 
when NAME_ERROR=> 
put_line("No ready assignment for this 


designer"); 
end; 
when 12 => -- abandon step 
begin 
system call("mainstep "&Namel&" 1 "£Name3£" 5 > 


temp"); 
OPEN (data filel, IN FILE, ""temp"); 
WHILE not END OF FILE(data filel) loop 
get_line(data_filel,an_id, length); 
for 1 in Length+1..5 loop 
anta (o: 
end loop; 
get line(data filel,Name4,length); 
for 1 in Length+1..64 loop 
Name4 (1) :=" '; 
end loop; 
auto mail3 (Name4,an id); 
end loop; 
put_designers (Name1,"2"); 
get sched data(Namel,"0"); 
get sched data l(Namel,"0"); 
main(0); 
CLOSE (data_filel); 
exception 
when NAME_ERROR=> 
put_line("No ready assignment for this 
designer"); 
end; 
when 13 => -- remove transfer file 
System call("rm ddbdisplav"); 
when 14 => -- add designer 
ODETOn:-"lt". 
for inin 2S. SA Toop 
Name3(i):=' '; 
end loop; 
Oo AOS 
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Name4 (1)¢=' 4; 
end loop; 
Add_designer (Namel, option, Name3 ,Name4) ; 
put_designers (Namel,"2") ; 
get_sched_data(Namel,"0"); 
get sched data l(Namel,"0"); 
main(0); 
when 15 => -- show designers 
Opt Len: A 
Show designer (Namel,option); 
when 16 => -- Delete designer 
Opt E 
tor i in 259762999 
Name3(1):=' '; 
end loop; 


-- if status= busy, reschedule 
Delete_designer (Namel, option,Name3) ; 
~-and reschdule 
if Name4(1..4) - "Busy" then 
put line("NOTICE: The Designer just 
deleted was busy"); 
put line(" RESCHEDULING his/her tasks."); 
get sched data. 2 (Namel1 , Name23) ; 
system call("mainsched "&Namel&" 7 "&Name3); 
put designers (Namel,?"2"); 
get sched data. 1 (Namel, Name3) ; 
main(0); 
end if; 


when 17 => -- Change expertise level 
opt iom 1 
tor 3392925." Gd GG 
Name (1) :=" '; 
end loop; 
fuor 3 01925 GANSOS) 
Name4(1):=' '; 
end loop; 
Change exp level(Namel,option,gName3,gName4); 
put designers (Namel,"2"); 
get sched data(Namel,"O0"); 
get sched data 1(Namel,"0"); 
main(1); 


-- exception handling for selector case. 
when others => 
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putt BADOCHOTSCHSSSPLEASE TRY. AGAIN"); 


new line ; 
end case; 
end ECSl: 
begin 
mai. 


end ecs, manager; 


Designer Interface a KK kK KK K K KK K K K al ade K ale ale ak ale ade ale K K KK K K KKK K K K K K K ade al al ale ale ak ak K K K K KK K k K 


-- Title : Designer Interface program 
-- Author : Salah badr 

-- pate : 25 September 1993 

-- Revised : 

== System : Suns”? 

-- Compiler : VerdixAda 

-- Description 


with ECS, OPERATIONS; use ECS OPERATIONS; 
Dach TEXT IO; == BASIC NUM TO; 
use TEXT_IO; --, BASIC_NUM_lO ; 

-- Main program. 

procedure DESIGNER, INTERFACE is 


package nat, io is new integer io(natural); use nat 10; 
Namel Ee HEET 
EIERE EE ele | 
Name? : STRING(1..64); 
Name4 < STRING( L.T 64); 
Name6 : STRING(1..64); 
Name5 © STRING( T r64); 
Name7 : STRING(I 64); 
an_id > STRING (FTS; 
the_time ¿string l.. l4); 
SELECTOR |: naturdtds 20905 
Length : integer; 
data, file : FILE. TPE; -- logical file definitions 
data_filel EME. E: -- logical file definitions 
answer Character yi 


— c ck kk kk kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k kkkkkkkkkkkkkkk kk 


-- DISPLAY THE MAIN MENU. 
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procedure DESIGNER MENU is 


begin 
new line; 
set col(25); put("DESIGNER MENU"); new line; 
set_col(25); put ("=============*"); new IMA 


set col(5); put("[1] Show Prototypes"); 
new line; 
set col(5); put("[2] Show Component Subtree"); 
new line; 
set col(5); put("[3] Show Steps"); 
new line; 
set col(5); put("[4)"MShomWSrep"E 
new line; 
set_col(5); put("[5] Create Prototype"); 
new_line; 
-- set col(5); put("[6] Create Step"); 
-- new line; 
set col(5); put("[6] Create Substep"); 
new line; 
set col(5); put("[7] Commit Substep"); 
new line; 
set col(5); put("[8] Retrieve Version"); 
new line; 
set col(5); put("[9] Retrieve Spec File"); 
new line; 
set col(5); put("[10] Retrieve Imp File"); 
new line; 
set col(5); put("[11] Show Schedule"); 
new line; 
set_col(5)> put("(212)] Quit"); new lrne 2E 
set col(5); put("Enter the number of your choice 
ur 


end DESIGNER. MENU ; 


— ck koc ck ck oe oe oe oe coke oe oe ode ode coke ode ode ode oe oe oe oe oe oe coke ode ode ode coke ode oe coke oe oe ode oe oe ok ode oe ode ode oe coke ode oce oe oe oe ok ode A A A A 


begin 
loop 
begin 
system call("mainstep "&Namel&" h »temp"); 
OPEN(data file, IN. FILE, "temp"); 
get line(data file,an id,length); 
for 1 in Length+1..5 loop 
an, 1d(i):s' '; 
end loop; 
Lf an-id( DAS T Sthen 
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get line(data file,Name4,length); 
for i in Length+1..64 loop 
Name4 (i):=' '; 
end loop; 
System call("mkdir "&Name4); 
get line(data, file,an id,length); 
for 1 in Length+1..5 loop 
an id(i):s' '; 
end loop; 
system call("mainstep "&Namel&" g "&an id); 
end 1if; 
CLOSE (data file); 
system call(í("rm temp"); 
end; 
=- loop 
DESIGNER MENU ; 
get(SELECTOR); skip line ; 
case SELECTOR is 
-- Show the prototypes in the database. 
when 1 => -- Show Prototypes 
option: = St 
Show, Prototypes (Namel,option); 
System call("more ddbdisplay"); 
when 2 => -- Show Component Subtree 
ODESOn =i N; 
put ("Enter prototype's name: "); 
get line(Name3,Length); 
for 1 in Length+1..64 loop 
Name (1):='" '; 
end loop; 
put ("Enter variation and version[var:ver]: "); 
get_line(Name6, Length); 
for i in Length+1..64 loop 
Name6(1):=' '; 
end loop; 
put("Enter component name: "); 
get line(Name5,Length); 
for i in Length«1..64 loop 
Name5(1):=" '; 
end loop; 


general. function (Namel,option,gName3,Name6,Name5); 
when 3 => -- Show Steps 
Option o 
put ("Enter Step status or all to see all the 
steps: "); 
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get line(Name3,Length); 
for 1 in Lenoth+1. camilo» 
Name3i3):— 
end loop; 
Show. Step(Namei1,option,Name3); 
system call("more ddbdisplay"); 
when Arz: -- Show Step 
Option: ="2 4% 
put ("Enter Step id: ate 
get_line(Name3, Length) ; 
for 1 in Length+1..64 loop 
Name3 (1) E 
end loop; 
Show Step(Namel,option,Name3); 
system call("more ddbdisplay"); 
when 5 => -- Create Prototype 
Opt Jon NE 
put ("Enter prototype's name: "); 
get_line (Name3, Length) ; 
for 1 in Length+1..64 loop 
Name3 (1) :=' '; 
end loop; 
Create Prototype (Namel,option,Name3); 
put ("More subcomponents to add[answer 
Y/N o 
get (answer); 
skip_line; 
while answer='y' or answer='Y' loop 
put ("Enter component name: "); 
get line(Name5,Length); 
for 1 in Length+1..64 loop 
Names ri). ; 
end loop; 
put ("Enter parent component name: "); 
get line(Name7,Length); 
for 1 in Length+1..64 loop 
Name%(i):=' '; : 
end loop; 
Add SubComponent (Name1,"4",Name3, 
"1:1",Name5, "1:1" ,Name/); 
put ("More subcomponents to add[answer 
Y/N] m= 
get (answer); 
Skip. line; 
end loop; 
when 6 => -- create substep 
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ot omes v 
put("Enter parent step id: "); 
get line(Name3,Length); 
for 1 in Gemgen+l..64 loop 
Name3(1):=" ww 
end loop; 
PUC Eneersorimary input: "); 
get line(Name4,Length); 
for 1 in Length+1..64 loop 
Name4(1i):=' '; 
end loop; 
put ("Enter Estimated duration: "); 
get line(Name5,Length); 
for 1 in Length+1..64 loop 
Mame5(1):s' ':; 
end loop; 
create substep(Namel,option,Name3, 
Name4 , Name5) ; 
put, designers (Namel,"2"); 
get sched data(Name1,"0"); 
system call("cat temps temp8 > temp9"); 
system call("rm temps temp8"); 
system call("mv temp9 temps"); 
get sched data 1(Namel,"0"); 
main(0); 
Show. Schedule (Name1, "2"); 
system call("more ddbdisplay"); 
Wenas. => -- commit substep 
begin 
ctc 
put("Enter step id: "); 
get line(Name3,Length); 
for 1 in Length+1..64 loop 
Names '; 
end loop; 
Show Step(Namel,option,gName23); 
get current time(the time); 
remove step from schedule(Namel,"f",Name3, 
the time); 
OPEN(data filel, IN. FILE, "temp4"); 
get line(data, filel,an. id,length); 
for 1 in Length+1..5 loop 
an TA" '; 
end loop; 
if an_id(1) ='N' then 
WHILE not END OF FILE(data, filel) loop 
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get_line(data_filel,an_id, length); 
for mean Bength+ 1.5 le@ep 
anda): ==" *; 
end loop; 
get line(data filel,Name4,1length); 
for 1 in Length+1..64 loop 
Named (1) :=' '; 
end loop; 
update time(Namel,"5",an, id,the time); 
auto mail (Name4,an. id); 
Change status(Namel,"5", Name4); 
general, update (Namel,""7",an, id, "3"); 
end loop; 
elsif an_id(1) ='R' then 
put designers (Namel,"2"); 
get sched data(Namel,"0"); 
get sched data 1(Name1,"0"); 
main (0% 
Show_Schedule (Namel,"2"); 
system_call ("more ddbdisplay"); 
end 1f; 
CLOSE (data_filel); 
exception 
when NAME_ERROR=> 
put_line("No ready assignment for this 


designer"); 
end; 
when 8 => -- dump version 
ODE TOm- NO -- option-z6 for dump compo. 


put ("Enter prototype's name: "); 
get_line(Name3, Length) ; 
for 1 in Length+1..64 loop 
Name (1):=' '; 
end loop; 
put ("Enter component name: "); 
get_line(Name5, Length) ; 
for 1 in Length+1..64 loop 
Name5 (1):=" '; 
end loop; 
put ("Enter variation and version: "); 
get_line(Name6, Length) ; 
for 1 in Length+1..5 loop 


Name6(i):s' '; 
end loop; 
Dump_version(Namel, option, Name3,Name5,Name6) ; 
when 9 => -- dump spec file 
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(om Hd 

put("Enter prototype's name: "); 

get line(Name3,Length); 

for 1 in Length+1..64 loop 

omes E 

end loop; 

put ("Enter component name: "); 

get_line(Name5, Length) ; 

for 1 in Length+1..64 loop 
Name5 (1) :=' '; 

end loop; 

put ("Enter variation and version: "); 

get line(Name6,Length); 

for 1 in Length+1..5 loop 


Name6(1):=' '; 
end loop; 
Dump_version(Namel, option, Name3,Name5,Name6) ; 
when 10 => -- dump Imp. file 


Omt omes pus 

put ("Enter prototype's name: "); 

get, line (Name3, Length); 

for ìi in Lengtht1i..64 loop 

Name3 (i):=' '; 

end loop; 

put ("Enter component name: "); 

get_line(Name5, Length) ; 

for i in Length+1..64 loop 
Name5(1):=' '; 

end loop; 

put ("Enter variation and version: "); 

get_line(Name6, Length) ; 

for 1 in Length+1..5 loop 


Name6(1):=' '; 
end loop; 
Dump. version(Namel,option,gName3,gName5,gNameo); 
when 11 -» -- show schedule 


[OMIM 1s": 
Show Schedule(Namel,option); 
system call("more ddbdisplay"); 
when 12 => 
Puri  JE9BYve ...Bye"); 
new line ; 
exit; 
-- exception handling for selector case. 
when others => 
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put (" BAD CHOICE. yPEEASE URRY “AGA as 
new_line ; 
end case; 
end loop; 


end DESIGNER INTERFACE; 


ddb_Interface.a (Tae for manager interface) * kakaa e de de dede dede de de dede de e de e e de ed dde 


-- Title : Tae program for manager interface 
-- Author : Salah badr 

-- pate = 25 OGEOber, F993 

-- Revised : 

-- System +, Suns/ 

-~ Compiler : VerdixAda 

-- Description 


with tae; use tae; 
with X Windows; 
with text. 10; use text. 10; 
with ecs manager; use ecs manager; 
procedure ddb interface is 
-- FILE: ddb interface. support. spec.a 
-- Supporting procedures for ddb interface 
-- Including event handling routines. 
package ddb interface support is 
package taefloat io is new text io.float io (taefloat); 


package taeint io is new text, io.integer io(taeint); 


package int io is new text io.integer io(integer); use 
Int Io. 


procedure initializePanels (file : in string); -- NOTE: 
params changed 


procedure CLEAR, STEP INFO; 


-- BEGIN EVENT HANDLERs 
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procedure main, selection 1 (info : in 
tae wpt.event context ptr); 


procedure editstep base version (info : in 
tae wpt.event context ptr); 

procedure editstep pri input (info : in 
tae wpt.event context ptr); 

procedure editstep predecessors (info : in 


tae wpt.event context ptr); 
procedure editstep priority (info : in 
tae wpt.event context ptr); 
procedure editstep exp level (info : in 
tae wpt.event context ptr); 
procedure editstep deadline (info : in 
tae wpt.event context ptr); 


procedure editstep est duration (info : in 
tae wpt.event context ptr); 
procedure editstep sec input (info : in 


tae wpt.event context ptr); 
procedure editstep affected (info : in 

tae wpt.event context ptr); 
procedure editstep return (info : in 

tae wpt.event context ptr); 
procedure editstep apply step (info : in 

tae wpt.event context ptr); 
procedure editstep cancel step (info : in 

tae wpt.event context, ptr); 
procedure editteam name (info : in 

tae wpt.event context, ptr); 
procedure editteam ex opt (info : in 

tae wpt.event context ptr); 
procedure editteam d cancel (info : in 

tae wpt.event context ptr); 
procedure editteam designers (info : in 

tae wpt.event context ptr); 
procedure editteam selection 3 (info : in 

tae wpt.event context ptr); 
procedure confirm yes (info : in 

tae wpt.event context ptr); 
procedure confirm no (info : in 

tae wpt.event context ptr); 
procedure s select, s select item (info : in 

tae wpt.event context ptr); 
procedure showstep s select item (info : in 

tae wpt.event context ptr); 
procedure show step number (info : in 

tae wpt.event context ptr); 
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procedure showeshowsSronvchentcM 
tae wpt.event, context ptr); 
procedure texti display done (info : in 
tae wpt.event context, ptr); 
procedure texti text item 1 (info : in 
tae wpt.event context, ptr); 
procedure steptype type selection (info : in 
tae wpt.event context ptr); 
procedure editnum s select, item (info : in 
tae wpt.event context ptr); 
-- END EVENT HANDLERs 


end ddb interface support; 


-- ENDFILE: ddb interface support spec.a 


use ddb interface, support; 
use tae.tae misc; 


theDisplay : X Windows.Display; 

user ptr : tae wpt.event context ptr; 

main info : tae wpt.event, context ptr; 
editstep info : tae wpt.event, context, ptr; 
editteam info : tae wpt.event, context ptr; 
confirm info : tae wpt.event context, ptr; 
s select info : tae wpt.event, context. ptr; 
showstep info : tae wpt.event, context, ptr; 
show info : tae wpt.event, context, ptr; 
textil info : tae wpt.event context ptr; 
steptype info : tae wpt.event context, ptr; 
editnum info : tae wpt.event context ptr; 
etype : wpt eventtype; 

wptEvent : tae wpt.wpt eventptr; 


dummy : boolean; -- used to clear out the wpt event queue 


type activity selector is (editing, creating); 


MAX DESIGNERS : integer :- 20; 

MAX SEC, INPUTS : integer := 20; 

secondary. inputs : s, vector(1..MAX, SEC INPUTS) :- (others 
=> new string(1..64)); 

affected modules : s vector(1..MAX SEC INPUTS) :- (others 
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=> new string(l..64)); 
S vector(1..MAX DESIGNERS) :- 
=> mew serna (1.0111 

hee E te | ie 
EE 
String (ie 
Strings 1. 
String(1. 
String(1. 
stringi.: 
Strange 


designer. info 


deadline 
designer 

start time 
status 
finish_time 
sub_steps 
predecessors 
expertise_level 
designer_status 
base_version 
primary input 


data_file 
length 
counter 


temp_string 
priority 


est duration 
Step number 


editing or. creating 


string 


string 


( 

(1 
String(l. 

(1 


(Others 


2524)5 
24)» 
E242): 
125. ue 
zog). 
SE 
. 24; 
240) 
uy 
dE 
NDA) 


text io.file type; 


integer; 
integer; 


stringi ls 


integer; 
integer; 
integer; 


.64); 


activity, selector; 


mmm ` mn ` "rg ` rz emm ` emm emm emm emm ` emm — ` emm ` emm mmm emm emm emm ` emm ` emm emm ` emm emm emm emm emm ` emm emm ` om emm mmm ` emm ii ii = ` emm 


PUDE: ddb interface support, body.a 


package body ddb interface support is 


procedure initializePanels 


use tae.tae co; 
use tae.tae misc; 


emp info 
dummy 


begin 


(file 


in SEringi is 


Cae. wpt.event, context, ptr; 


BOOLEAN; 


-- do one Co New and Co ReadFile per resource file 
:- new tae wpt.event., context; 


imp Info 
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Co New (0, tmp into seolec tiem: 
-- could pass P_ABORT if you prefer 
Co ReadFile (tmp info.collection, file, P CONT); 


-- pair of Co Finds for each panel in this resource file 


main info :- new tae wpt.event context; 

main info.collecBgdjon := tmp info.col lectioni 

Co Find (main r:n$6O.colbecsWon, “main v 
main, info.view); 

Co Find (main info.collection, “menn S 
main info.target); 


editstep info :- new tae wpt.event context; 

editstep info.collection :- tmp info.collection; 

Co Find (editstep info.collection, "editstep v", 
editstep info.view); 

Co Find (editstep_info.collection, "editstesmey® 
editstep info.target); 


editteam info :- new tae wpt.event context; 

editteam_info.collection := tmp. info.collection; 

Co Find (editteam info.collection, "editteam v", 
editteam info.view); 

Co Find (editteam info.collection, "editteam t", 
editteam info.target); 


confirm info :- new tae wpt.event context; 

confirm info.collection :- tmp-rnfto collecta 

Co Find (confirm smfo.collection, "contrrzunum 
confirm info.view); 

CO Find (confirm.into. collection conte 
confirm info.target); 


s select info :- new tae wpt.event context; 

s select, info.collection :- tmp-info.collectacWE 

Co Find (s select info.collection, "s select v", 
S select info.view); 

Co Find (s select info.collection, "s select t", 
S select info.target); 


showstep info :- new tae wpt.event context; 

showstep_info.collection := tmp info. collec mok 

Co Find (showstep-info.collection, “showstep v$ 
showstep info.view); 

Co Find (showstep info.collection, "showstep t", 
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showstep info.target); 


show info :- new tae wpt.event context; 

cnowelunhboMeoblbectryonw 9Empernto.collection; 

Co Find (show info.collection, "show v", 
show info.view); 

Coreana (show nto Collection, "show t", 
show info.target); 


Ctextl info :- new tae wpt.event context; 

textl info.collection := tmp info.collection; 

Courind text) einte.collection, “textl y”, 
textl info.view); 

CoO Find (text info:collection, “texti t", 
textl_info.target); 


steptype_info := new tae_wpt.event_context; 

steptype_info.collection := tmp_info.collection; 

Co Find (steptype info.collection, "steptype v", 
steptype info.view); 

Co Find (steptype info.collection, "steptype t", 
sSteptype info.target); 


editnum info :- new tae wpt.event context; 

COn or collection <= tino info- -collection; 

Coueand (edacusumwerinfto collection, "editnum v", 
editnum, info.view); 

Conbind.(caditmumeimto collection, “editnum t", 
editnum_info.target) ; 


-- Since there can now be MULTIPLE INITIAL PANELS defined 
from 
-- within the TAE WorkBench, call Wpt. NewPanel for each 
panel 
-- defined to be an initial panel (but not usually all 
che panels 
-- which appear in the resource file). 


if main, info.panel, id - NULL PANEL ID then 
tae wpt.Wpt NewPanel ("", main info.target, 
main. info.view, 
X Windows.Null Window, main info, 
tae wpt.WPT PREFERRED, 
main info.panel id); 
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else 
tae wpt.Wpt SetPanelState ( 


main info.panel id, tae wpt.WPT PREFERRED); 


end if; 
dummy :- Tae Wpt.Wpt Pending; 
end initializePanels; 
procedure CLEAR, STEP INFO is 
begin 


Lor 399m] 0I Op 
secondary inputs(i).all :- 


affected modules(i).all :z 


end loop; 


deadline I 
designer — 
start_time T 
Status ue oe 
finish time TX 
sub steps ur 
predecessors : EM 
expertise level := " 
base version = 


| 
1 


primary_input = 


". 
/ 


temp string = 


TA 
/ 


[DIS OE iu a= 0; 
est_duration el 
end CLEAR, STEP INFO; 


=> BEGIN EVENT HANDLERs 
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procedure main selection 1 (info : in 
tae wpt.event context, ptr) is 
value : array (1..1) of string 
(1..tae_taeconf .STRINGSIZE) ; 
count : taeint; 


begin 
text io.put ("Panel main, parm selection 1: value - "); 

tae. vm.Vm, Extract, Count (info.parm ptr, count); 

if count <= Osgthen 
text_io.put_line ("none"); 

else 

tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(1)); 
text_io.put_line (value(1)); 


end 1f; 

VE (EAPRGE) then null; 

elsif s equal (value(1), "show prototypes") then 
EBESECTOR :z 1; 


ECS1; 
if textl_info.panel_id = NULL_PANEL_ID then 
tae wpt.Wpt NewPanel ("", textl info.target, 
textl. info.view, 
X Windows.Null. Window, textl. info, 
tae wpt.WPT PREFERRED, 
textl info.panel. id); 
else 
tae wpt.Wpt SetPanelState ( 
textl info.panel id, tae wpt.WPT PREFERRED); 


end if; 

elsif s, equal (value(1), "show steps") then null; 
if steptype info.panel id - NULL PANEL ID then 
tae wpt.Wpt NewPanel ("", steptype info.target, 


steptype info.view, 
X Windows.Null. Window, steptype info, 
tae wpt.WPT PREFERRED, 
steptype info.panel id); 
else 
tae wpt.Wpt SetPanelState ( 
steptype info.panel id, 
tae wpt.WPE PREFERRED); 
end if; 
elsif s_equal (value(1), "show step details") then 
null; 
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if showstep info.panel, id -» NULL PANEL ID then 
tae wpt.Wpt NewPanel ("", showstep info.target, 
showstep info.view, 
X Windows.Null,. Window, showstep. info, 
tae wpt.WPT PREFERRED, 
showstep info.panel. id); 
else 
tae wpt.Wpt SetPanelState ( 
showstep info.panel, id, 
tae wpt.WPT PREFERRED); 
end ir; 


Tae Wpt.Wpt SetIntg(showstep info.panel id,"s sele 
ct item",Taeint(0)); 


elsif s equal (value(1), "show schedule") then 
SELECTOR =T; 
ECSI; 
if textl_info.panel_id = NULL_PANEL_ID then 
tae_wpt.Wpt_NewPanel ("", textl_info.target, 
textl info.view, 
X Windows.Null. Window, textl1, info, 
tae wpt.WPT PREFERRED, 
textl info.panel. id); 
else 
tae wpt.Wpt SetPanelState ( 
textl1 info.panel. id, tae wpt.WPT PREFERRED); 
end if; 
elsif s equal (value(1), "create prototype") then null; 
elsif s equal (value(1), "create step") then 
editing. or creating :- creating; 


CLEAR STEP INFO; 


if editstep info.panel. id - NULL. PANEL. ID then 
tae wpt.Wpt, NewPanel ("", editstep info.target, 
editstep info.view, 
X Windows.Null. Window, editstep info, 
tae _wpt.WPT PREFERRED] 
editstep_info.panel_id); 
else 
tae_wpt.Wpt_SetPanelState ( 
editstep_info.panel_id, 
tae wpt.WPT PREFERRED); 
end if; 
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-- Still need to clear displayed affected modules and 
secondary inputs 


Tae Wpt.Wpt SetString(editstep info.panel. id,"base 
_version", 
base version); 


Tae Wpt.Wpt SetIntg(editstep info.panel id,"est du 
ration", 
Taeint(est duration)); 


Tae Wpt.Wpt SetString(editstep info.panel, id,"exp 
level", 

expertise_level); 

Tae_Wpt .Wpt_SetIntg(editstep_info.panel_1d, "priority", 

Taeint (priority) ); 


Tae Wpt.Wpt SetString(editstep info.panel. id,"desi 
gner", 
designer); 


Tae Wpt.Wpt SetString(editstep info.panel., id,"dead 
line", 
deadline); 


Tae Wpt.Wpt SetString(editstep info.panel id,"star 
t time", 
start time); 


Tae Wpt.Wpt SetString(editstep info.panel id,"fini 
sh time", 
finish, time); 


Tae Wpt.Wpt SetString(editstep info.panel id,"pri 
Apt p 


Primary input); 


Tae_Wpt .Wpt_SetIntg(editstep_info.panel_id,"step_n 
umber", 
Taelnt(0)); 


Tae Wpt.Wpt SetString(editstep info.panel. id,"sub 


Steps", 
sub steps); 
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SELECTOR 
IE 
SELECTOR 
IS Sls 


-- read 


Tae Wpt.Wpt SetString(editstep info.panel. id, "pred 
ecessors", 


predecessors); 
elsif s equal (value(1), "edit step =>") then null; 
if editnum_info.panel_id = NULL_PANEL_ID then 
tae_wpt.Wpt_NewPanel ("", editnum_info.target, 


editnum_info.view, 
X Windows.Null Window, editnum info, 
tae wpt.WPT PREFERRED, 
editnum info.panel. id); 
else 
tae wpt.Wpt SetPanelState ( 
editnum info.panel, id, tae wpt.WPT PREFERRED); 
end if; 


Tae Wpt.Wpt SetIntg(editnum info.panel id,"s selec 
t item",Taeint(0)); 


elsif s equal (value(1), "edit team -»") then null; 
if editteam info.panel. id - NULL. PANEL, ID then 
tae wpt.Wpt NewPanel ("", editteam info.target, 


editteam info.view, 

X Windows.Null. Window, editteam info, 
tae wpt.WPT PREFERRED, 

editteam info.panel. id); 

else 
tae wpt.Wpt SetPanelState ( 

editteam info.panel,. id, 

tae wpt.WPT -PREPBEREED)OS 


end if; 
- 13; -- remove data transfer file 
- 15; -- put 'show designers' information in data 


transfer file 
in the designers from the transfer file (ddbdisplay) 
into the editteam panel 


text io.OPEN(data file, 
text 10o.IN FILE, "ddbdisplay "ik 


counter := 1; 
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while not end, of file(data file) loop 


get line(data file,designer. info(counter).all,leng 
tones 


TAE Wpt.Wpt SetStringConstraints(editteam info.pan 


el id, 
"designers", TaeInt(counter), 
designer. info); 
counter :- counter + 1; 


end loop; 
text io.CLOSE(data, file); 
for i in counter..MAX DESIGNERS loop 


designer. info(i).all :- 


TAE Wpt.Wpt SetStringConstraints(editteam info.pan 
el id, 

"designers", TaeInt (counter), 
designer. info); 


end loop; 


elsif s equal (value(1), "approve step") then 
Selector :- 8; 
if s select info.panel. id - NULL PANEL ID then 
tae wpt.Wpt NewPanel ("", s select info.target, 
S select, info.view, 
X Windows.Null, Window, s, select. info, 
tae wpt.WPT PREFERRED, 
S select info.panel id); 
else 
tae wpt.Wpt SetPanelState ( 
s select info.panel. id, 
tae wpt.WPT PREFERRED); 
end if; 
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Tae Wpt.Wpt SetIntg(s. select info.panel, id,"s sele 
ct_item",Taeint(0)); | 


elsif s, equal (value(1), "schedule step") then 
Selector 9 
if s, select, info.panel, id - NULL, PANEL ID then 
tae wpt.Wpt NewPanel ("", s select info.target, 


sS select info.view, 
X Windows.Null Window, s. select info, 
tae. wpt.WPT PREFERRED, 
s select, info.panel, id); 
else 
tae wpt.Wpt SetPanelState ( 
s select info.panel. ad, 
tae wpt.WPT PREFERRED); 
end if; 


Tae_Wpt .Wpt_SetIntg(s_select_info.panel_id,"s_sele 
ct item",Taeint(0)); 


elsif s equal (value(1), "commit step") then 
SELECTOR. UU 
if s select. info.panel. id - NULL PANEL ID then 
tae wpt.Wpt NewPanel ("", s select  info.target, 


S select info.view, 
X Windows.Null, Window, s, select info, 
Cae. wot. wei PREFERRED, 
s select_info.panel_id); 
else 
tae wpt.Wpt SetPanelState ( 
s select info.panel. id, 
tae wpt.WPT PREFERRED); 
end if; 


Tae Wpt.Wpt SetIntg(s select, info.panel. id,"s sele 
ct item",Taeint(09)99 


elsif s, equal (value(1), "suspend step") then 
SELECTOR EN 
if s select info.panel, id - NULL, PANEL ID then 
tae wpt.Wpt NewPanel ("", s select,info.target, 


S select info.view, 
X Windows.Null Window, s select, info, 
tae wpt.wPT PREPERREDE 
S select info.panel, id); 
else 
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tae wpt.Wpt SetPanelState ( 
S select info.panel id, 
tae wpt.WPT PREFERRED); 
end if; 


Tae Wpt.Wpt SetIntg(s select info.panel id,"s sele 
ct item",Taeint(0)); 


elsif s equal (value(1), "abandon step") then 
SELECTOR := 12; 
if s_select_info.panel_id = NULL_PANEL_ID then 
tae_wpt.Wpt_NewPanel ("", s_select_info.target, 


s_select_info.view, 
X Windows.Null. Window, s select info, 
tae wpt.WPT PREFERRED, 
S select info.panel. id); 
else 
tae wpt.Wpt SetPanelState ( 
S select info.panel id, 
tae wpt.WPT PREFERRED); 
end if; 


Tae Wpt.Wpt SetIntg(s select info.panel id,"s sele 
ct item",Taeint(0)); 


elsif s equal (value(1), "quit") then null; 
end if; 


tae wpt.Wpt PanelReset (main info.panel. id); 
end main selection 1; 


procedure editstep base version (info : in 
tae wpt.event context ptr) is 
value : array (1..1) of string 
(l1..tae taeconf.STRINGSIZE); 
count : taeint; 


begin 
text io.put ("Panel editstep, parm base version: value 
TUN; 
taen ym.ym Extract Count (info.parm ptr, count); 
if count <= 0 then 
pereo neu TIeN none" 
else 
tae vm.Vm Extract SVAL (info.parm ptr, 1, value(1)); 
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text io.put, dine (value(1)); 
end if; 
base version(l..64) 52 ^value 1) 0 5420€ 
end editstep base version; 


procedure editstep pri input (info : in 
tae wpt.event, context, ptr) is 
value : array (1..1) of string 
(1. .tae_taeconf.STRINGSIZE); 
count : taeint; 


begin 
text io.put ("Panel editstep, parm pri input: value - 
EE 
tae vm.Vm Extract, Count (info.parm.ptr, counts 
if count <= 0 then 
text io.put line ("none"); 
else 
tae vm.Vm Extract SVAL (info.parm ptr, 1, value(1)); 
text io.put line (value(1)); 
end if; 
prEuxmarv *inpub o4) v --avatuerb cq 
end editstep pri. input; 


procedure editstep. predecessors (info : in 
tae wpt.event context ptr) is 
value : array (1..1) of string 
(l1..tae taeconf.STRINGSIZE); 
count : taeint; 


begin 
text io.put ("Panel editstep, parm predecessors: value 

= "); 

tae vm, Mim Extract Count (info .parm pir, Counti 

lf count «- 0 then 
text io.put line ("none"); 

else 

tae vm.Vm Extract SVAL (info.parm ptr, 1, value(1)); 
text io.put line (value(1)); 

end if; 


-- need to turn the predecessors string into suitable numbers 
for entry 

-- into the ddb 

predecessors(1..24) :- value(1)(1..24); 
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-- currently only ADD PREDECESSOR is supported. 


end editstep predecessors; 


procedure editstep priority (info : in 
tae wpt.event context ptr) is 
value : array (1..1) of taeint; 
count : taeint; 


begin 

text io.put ("Panel editstep, parm priority: value - 
ANE 

tae vm.Vm Extract Count (info.parm ptr, count); 

1£ count <= 0 then 
text io.put line ("none"); 

else 

tae vm.Vm Extract. IVAL (info.parm ptr, 1, value(1)); 
text io.put line (taeint'image(value(1))); 


end if: 
-- assign priority :- value(1) -- note type incompatability 
priority :- integer(value(1)); 


end editstep priority; 


procedure editstep exp level (info : in 
tae wpt.event context ptr) is 


value : array (1..1) of string 
(l..tae taeconf.STRINGSIZE); 
ent : taeint; 
begin 


text io.put ("Panel editstep, parm exp level: value - 
E 
tae vm.Vvm Extract Count (info.parm ptr, count); 
if count <= 0 then 
text_io.put_line ("none"); 
else 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(1)); 
text io.put, line (value(1)); 
end if; 
expertise level(1..6) :- value(1)(1..6); 
end editstep exp level; 


procedure editstep deadline (info : in 
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tae wpt.event context ptr) is 
value "arrav (ll) OSSIBUS 

(1..tae_taeconf.STRINGSIZE); 
count : taeint; 


begin 

text_io.put ("Panel editstep, parm deadline: value = 
"E 

tae. vm.Vm. Extract, Count (info.parm ptr, count); 

if "count c4  wEher 
text Lo, Dut line ("none"); 

else 

tae vm.Vm Extract, SVAL (info.parm ptr, 1, value(1)); 
text io.put line (value(1)); 

end if; 

deadline (1, 24) = va bOn IE 
end editstep deadline; 


procedure editstep est duration (info : in 
tae wpt.event context ptr) is 
value : array (1..1) of taeint; 
count : taeint; 


begin 
text io.put ("Panel editstep, parm est duration: value 
- 7); 

tae vm.Vm Extract Count (info.parm ptr, count); 

if count <= 0 then 
text_io.put_line ("none"); 

else 

tae vm.Vm Extract IVAL (info.parm ptr, 1, value(1)); 
text io.put line (taeint'image(value(1))); 


end if; 
-- assign estimated duration :- value(1) -- note type 
incompatability 
est duration :- integer(value(1)); 


end editstep est duration; 


procedure editstep sec input (info : in 
tae wpt.event context ptr) is 
value : array (IT or string 
(1..tae_taeconf .STRINGSIZE) ; 
count : taeint; 
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begin 
text io.put ("Panel editstep, parm sec input: value - 
E 
Eqeevm. VMenxXt race Count (1nfO.parm ptr, count); 
if count «- 0 then 
text ilo.put, line ("none"); 
else 
tae vm.Vm Extract SVAL (info.parm ptr, 1, value(1)); 
text io.put, line (value(1)); 
end if; 
-- need to modify the secandary input array to reflect what 
is in the TAE window 
end editstep sec input; 


procedure editstep affected (info : in 
tae wpt.event context ptr) is 
value : array (1..1) of string 
(l..tae taeconf.STRINGSIZE); 
count : taeint; 


begin 
text io.put ("Panel editstep, parm affected: value - 
B 
bugewwn Vmsbxtract-count (rxnfo.parm ptr, count); 
if count «- 0 then 
text io.put, line ("none"); 
else 
tae vm.Vm Extract SVAL (info.parm ptr, 1, value(1)); 
text lo.put line (value(1)); 
-- need to modify the affected module array to reflect any new 
info 
RCM 
end editstep affected; 


procedure editstep return (info : in 
tae wpt.event context ptr) is 
begin 
if not (editstep info.panel. id - NULL. PANEL. ID) then 


tae wpt.Wpt PanelErase(info.panel id); end if; 


end editstep return; 


procedure editstep apply step (info : in 
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tae wpt.event context ptr) is 
value : array (1..1) of string 

(1..tae taeconf.STRINGSIZE); 
count : taeint; 


begin 
text io.put ("Panel editstep, parm apply step: value 
ee 
tae vm.Vm Extract Count "(WWfo.parm ptr, counter 
if count «- 0 then 
text io.put. line ("none"); 
else 
tae vm.Vm Extract SVAL (info.parm ptr, 1, value(1)); 
text io.put line (value(1)); 
end if; 
need to write all step stuff to ddb 


if editing or creating - creating then -- creating a new 
step 


begin 


note that the parsing of the base version and the primary 
input 
is VERY rudimentary. We are currently expecting the user 
to know 
the required input form: base version var:ver 
primary. input var:ver 


if base version(1..3) /- " " then 
af primary inpuc( ASI ee " then 
SELEC TORE: =; 
Name3(1..64) :- base version(1..64); 


Name4 (1..64) 
BOUE 


primary input (1 64k 


put line("step creation complete"); 


else put line("base version and primary input 
required for step creation."); 
end if; 
else put line("base version and primary input required 
for step creation."); 
end if; 
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end; 


else -- editing a step 


begin 


Name tE “00 
forai o ALO OD 
Name4(1):=' '; 
end loop; 
Name5(1):='0'; 
for 64 op 
Name5 (1): "s 
end loop; 
Name6 (1.3) :2 040" ; 
[ores "oq op 
Name6(1):=' '; 
end loop; 
Name7(1):='0'; 
tonem od RO 
Name/7 (1): de 
end loop; 
Namestl..3);2"Q0 Q"'; 
mej a C62 loobD 
Name8(1i):=' '; 
end loop; 
Name9 (1) :='0'; 
for iwm 2..64 loop 
Name9(1):=' '; 
end loop; 
NameA(1):='0'; 
Bot leila o1 Ha 
NameA (1): ie 
end loop; 
NameB(1):='0'; 
[ro oa SO 
NameB (1): us 
end loop; 
NameC(1):='0'; 
Lord uo 54 T ^os 
NameC (1): x 
end loop; 
NameD(1):z'5': 
for i ine «64 Loop 
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end loop; 
Namer (1.24) += 00.0 
for imin 5. CA Toop 
NameE (1):=' '; 
end loop; 
taeint io.put(Name3,taeint(step number)); -- step_id 
-- if prmmary )mpubi] ee " then 
-- Name4(1. 64) :=primary_input(1..64); == for 
addition 
-- end if; 
-- Lf primas EE ea " then 
-- Name5(1..64) :=primary_input (1..64); -- for 
deletion 
-- end if: 
-- if secondary inputs) (1225) Sk " then 
-- Name6(1..64) :- secondary inputs(1)(1..64); -- for 
addition 
-- end if; 
-- if secondaryoinputs (1) CIPE) = " then 
-- Name7(1..64) := secondary_inputs(1)(1..64); -- for 
deletion 
-- end if; 
-- 1f affected modulesqv1) (1. 3)7289 " then 
-- Name8(1..64) :- affected modules(1)(1..64); -- for 
addition 
-- end if; 
-- if affected modules(1)(1..3)/z" " then 
-- Name9(1..64) :- affected modules(1)(1..64); -- for 
deletion 
-- end 1f; 
taeint_10.put (NameaA, taeint (priority)); -- priority 
1f predecessors(1..3)/=" " then 
NameB(1..3) := predecessors(1..3); 
end if; 
taeint io.put(NameC,taeint(est duration)); 
1f expertise level(1..3) - "low" then NameD(1) :-2 '0'; 
end if; 
if expertise level(1..3) = "med" then NameD(1) := '1'; 
ena if; 
if expertise_level(1..3) = "hig" then NameD(1) := '2'; 
end 1f; 
NameE (1..24) := deadline(1..24); 
put("step number:"); put(Name3); new line; 
put("priority:"); put(NameA); new line; 


NameD(i):s' '; 
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put ("estimated duration:"); put(NameC); new line; 


put line("apply has been depressed while in the edit 
mode"); 
Dubeline ("calling ECS. "); 


SEEEBETOR := 7; 
CSI; 


put_line("ECS operations complete"); 
end; 


end if; 
end editstep_apply_step; 


procedure editstep cancel step (info : in 
tae wpt.event context ptr) is 
weolue ssarrayail..1) of string (1..tae_taeconf.STRINGSIZE) ; 
count : taeint; 


begin 
text io.put ("Panel editstep, parm cancel step: value - "); 
Hae vm. Vm Extract_Count (info.parm ptr, count); 
fe Count <= 0 then 
text_io.put_line ("none"); 
else 
tae vm.Vm Extract, SVAL (info.parm_ptr, 1, value(1)); 
text io.put, line (value(1)); 
end if; 


-- should probably retrieve all of the old step information and 
refresh 
-- the edit step window 
CLEAR STEP INFO; 
for i in 1..MAX SEC INPUTS loop 
TAE Wpt.Wpt SetStringConstraints(editstep info.panel id 


"Sec input", TaeInt(i), 
Secondary inputs); 


TAE Wpt.Wpt SetStringConstraints(editstep, info.panel. id 
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"affected", TaeInt(i), affected modules); 


end loop; 


Tae Wpt.Wpt SetString(editstep info.panel. id,"base, vers 
Len 
base_version) ; 
Tae Wpt.Wpt SetIntg(editstep info.panel id,"est duration", 
Taeint (est, duration)); 
Tae Wpt.Wpt SetString(editstep info.panel. id,"exp level", 
expertise level); 
Tae_Wpt .Wpt_SetIntg(editstep_info.panel_id, "priority", 
Taeint (priority) ); 
Tae_Wpt .Wpt_SetString(editstep_info.panel_id, "designer", 
designer); 
Tae_Wpt .Wpt_SetString(editstep_info.panel_id, "deadline", 
deadline); 
Tae Wpt.Wpt SetString(editstep info.panel id,"start time", 
start time); 
Tae Wpt.Wpt. SetString(editstep. info.panel. id,"finish,. time", 
finish time); 
Tae Wpt.Wpt. SetString(editstep info.panel. id,"pri, input", 
primary. input); 
Tae Wpt.Wpt. SetIntg(editstep. info.panel, id,"step number", 
taeint (step number)); 
Tae_Wpt .Wpt_SetString(editstep_info.panel_id, "sub_steps", 
sub. steps); 


Tae Wpt.Wpt SetString(editstep info.panel. id,"predecess 


Ors " A 
predecessors); 
end editstep cancel, step; 
procedure editteam name (info : in tae wpt.event context ptr) is 
value : array (1..1) of string (1..tae_taecon£f.STRINGSIza = 
count : taeint; 
begin 
text io.put ("Panel editteam, parm name: value = "); 


tae_vm.Vm_EXtract Count (inte parm per, count 
ifocounnt <= 0 Ehen 
text 1o pūt line nonem 


384 


else 
tae vm.Vm Extract SVAL (info.parm ptr, 1, value(1)); 
text io.put, line (value(1)); 
end if; 
designer(1..24) := value(1)(1..24); 
end editteam_name; 


procedure editteam ex opt (info : in tae wpt.event context ptr) is 


value : array (1..1) of string (1l..tae taeconf.STRINGSIZE); 
count : taeint; 


begin 

text io.put ("Panel editteam, parm ex opt: value = "); 

pOeevrn.vm- Extract Count (info.parm ptr, count); 

count <= 0 then 
textero-eut line ("none"); 

else 
fac vi. VM Extract SVAL (1nfo.parm ptr, 1, váalue(1)); 
text io.put line (value(1)); 

Tae Wpt.Wpt SetString(editteam info.panel id,"expertise", 

value(1)); 
expertise level(1..24) :- value(1)(1..24); 
end if; 
end editteam_ex_opt; 


procedure editteam_d_cancel (info : in tae_wpt.event_context_ptr) 


1s 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 
count : taeint; 

begin 

text io.put ("Panel editteam, parm d cancel: value - "); 


tae vm.Vm Extract. Count (info.parm ptr, count); 

me count <= 0 then 
text io.put, line ("none"); 

else 
tae vm.Vm Extract SVAL (info.parm ptr, 1, value(1)); 
text io.put line (value(1)); 


end 1if; 
if info.panel. id - NULL. PANEL. ID then 
tae wpt.Wpt NewPanel ("", info.target, info.view, 


X Windows.Null Window, info, tae wpt.WPT PREFERRED, 
info.panel. id); 
else 
tae wpt.Wpt SetPanelState ( 
info.panel id, tae wpt.WPT PREFERRED); 
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end if; 
Tae Wpt.Wpt SetString(editteam info.panel id,"name", 
: ee 
Tae_Wpt .Wpt_SetString(editteam_info.panel_id, "expertise", 
u ye 
Tae_Wpt .Wpt_SetString(editteam_info.panel_id, "status", 
li AU 


end editteam d cancel; 


procedure editteam designers (info : in tae wpt.event, context ptr) 


1s 
value : array (1..1) of string (1..tae taeconf.STRINGSIZE); 
count : taeint; 
begin 
text io.put ("Panel editteam, parm designers: value - "); 


tae vm.Vm Extract. Count (info parimWpEr meson 
lJfocounbtes-q0StHe 
text io.put. line (*none"); 
else 
tae vm.Vm Extract. SVAL (info.parm ptr, 1, value(1)); 
text io.put, line (value(1)); 
end if; 
Tae Wpt.Wpt SetString(editteam info.panel. id, "name", 
value(1)(1..24)); 
designer(1..24) := value(1)(1..24); 
Tae_Wpt .Wpt_SetString(editteam_info.panel_id, "expertise", 
value (10W25. 30); 
expertise_level(1..6) := value(1)(25..30); 
Tae Wpt.Wpt SetString(editteam info.panel. id,"status", 
value(1)(44..51)); 
designer status(1..4) :- value(1)(44..47); 


end editteam designers; 


procedure editteam selection. 3 (info : in 
tae wpt.event context ptr) is 
value : array (1..1) of string (1..tae taeconf.STRINGSIZE); 
count : taeint; 


begin 


text io.put ("Panel editteam, parm selection 3: value 
tae vm.Vm Extract Count (ante parm cen ec 
if counte =en 
text io.put line ("none"): 


Ii 
= 
Des 
~ 
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else 


tae vm. Vm Extract SVAL (info.parm ptr, 1, value(1)); 
text io.put, line (value(1)); 


-- add designer to ddb 


end if; 
(FALSE) then null; 

elsif s equal (value(1), "add designer") then 
Name3(1..24) :- designer(1..24); 
if expertise level(1..3) = "low" then Name4 (1) := '0'; 
end if; 
if expertise_level(1..3) = "med" then Name4(1) :- '1'; 
end if, 
lf expertise level(1..3) - "hig" then Name4(1) :- '2'; 
end if; 


pureTne("calling ECS"); 


SELECTOR := T4; 
ECS1; 


tae wpt.Wpt, PanelReset(editteam info.panel, id); 


-- now read the new transfer file and update the TAE item 


SELECTOR 
BCS]I; 
SELECTOR 
ECSI; 


13; -- remove transfer file 


15; -- write designer list to transfer file 


put_line ("designer addition complete"); 


-- read in the designers from the transfer file (ddbdisplay) into 


the editteam panel 
text io.OPEN(data file, text io.IN FILE, "ddbdisplay"); 
gounter. l; 


while not end, of file(data file) loop 


get line(data file,designer. info(counter).all,length); 
TAE Wpt.Wpt SetStringConstraints(editteam info.panel id 


i 


"designers", TaeInt(counter), designer. info); 
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counter c - counter rei: 
end loop; 
text io.CLOSE(data. file); 
for i in counter..MAX DESIGNERS loop 


designer, info(i).all :- 


TAE Wpt.Wpt SetStringConstraints(editteam info.panel id 


/ 


"designers", TaeInt(counter), designer info); 


end loop; 
elsif s equal (value(1), "delete designer") then 
Name3(1..24) :- designer(1..24); 
Name4(1..4) := designer_status(1..4); 
1f confirm_info.panel_id = NULL_PANEL_ID then 
tae wpt.Wpt NewPanel ("", confirm info.target, 


confirm info.view, 
X Windows.Null Window, confirm info, 
tae wpt.WPT PREFERRED, 
confirm info.panel. id); 
else 
tae wpt.Wpt SetPanelState ( 
confirm info.panel id, tae wpt.WPT PREFERRED); 


end if; 


elsif s equal (value(1), "change expertise level") then 


-- update designer info in ddb 


begin 

NAME3(1..24) :- designer(1..24); 

if expertise level(1..3) - "low" then Name4(1) :- 
'O'; end if; 

if expertise_level(1..3) = "med" then Name4(1) := 
a Fem EIER 

if expertise level(1..3) = "hig" then Name4(1) := 
"2o end if; 
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pu Ine("calling ECS"); 


SELECTOR == 17; 
pes 


tae wpt.Wpt PanelReset(editteam info.panel id); 


-- now read the new transfer file and update the TAE item 


SISIESC TOR 
BEST 
SELECTOR 
ECSI; 


q 3 -- remove transfer file 


15; -- write designer list to transfer file 


put line("designer expertise modification complete"); 


-- read in the designers from the transfer file (ddbdisplay) into 


the editteam panel 
text io.OPEN(data, file, text Lo IN FILE, "ddbdisplay"); 
counter - Ll: 


while not end of. file(data file) loop 


get line(data, file,designer. info(counter).all,length); 


TAE Wpt.Wpt SetStringConstraints(editteam info.panel. id 


t 


"qeeroners" JPaeint(counter),. dessgner infol: 
counter == counter + ll; 
end loop; 
text io.CLOSE(data, file); 


for i in counter..MAX DESIGNERS loop 


designer, info(i).all :- 


D my, 
t 


TAE Wpt.Wpt SetStringConstraints(editteam info.panel. id 


t 


"designers", TaeInt(counter), designer info); 
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end loop; 
end; 

elsif s equal (value(1), "return to main menu") then 
tae wpt.Wpt PanelReset(editteam info.panel id); 


if not (editteam info.panel id - NULL PANEL ID) then 
tae wpt.Wpt PanelErase(info.panel id); end if; 
end if; 


end editteam selection. 3; 


procedure confirm yes (info : in tae wpt.event context ptr) is 
value : array (1..1) of string (1..tae taeconf.STRINGSIZE); 
count : taeint; 


begin 

text io.put ("Panel confirm, parm yes: value - "); 

tae vm.Vm Extract Count (info.parm per, count” 

if count <= 0 then 
text io.put, line ("none"); 

else 
tae vm.Vm Extract. SVAL (info.parm ptr, 1, valucmuiE 
text 1o.put line (value(1)); 

end if; 

tae wpt.Wpt PanelErase(info.panel, id); 

-- remove designer from ddb 


put _line ("calking ECS"); 


SELECTOR T SIE. 
BECSI: 


tae_wpt .Wpt_PanelReset (editteam_info.panel_id); 


-- clear the TAE panel items 


Tae_Wpt .Wpt_SetString(editteam_info.panel_id, "name", 
A E 

Tae Wpt.Wpt SetString(editteam info.panel, id,"expertise", 
" E) 

Tae_Wpt .Wpt_SetString(editteam_info.panel_id, "status", 


H we E 
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-- read the new designer list from the transfer file 


EERECTOR :- 13; 
BCST; 
EENEHGTOR :-2 15; 
mes]. 


put line("designer deletion complete"); 


-- read in the designers from the transfer file (ddbdisplay) into 
the editteam panel 


text io.OPEN(data file, text Lo, IN FILE, ""ddbdisplay"); 
SQuniter == l; 


while not end of file(data file) loop 


get line(data, file,designer info(counter).all,length); 
TAE Wpt.Wpt SetStringConstraints(editteam info.panel. id 


f 


"designers", TaeInt (counter), designer_info) ; 
Counter := counter + 1; 


end loop; 
text io.CLOSE(data, file); 
for 1 in counter. .MAX_DESIGNERS loop 


designer info(i).all :- 


u 
f 


TAE_Wpt .Wpt_SetStringConstraints(editteam_info.panel_id 


, 


"designers", TaeInt(counter), designer info); 


end loop; 


end confirm yes; 
procedure confirm no (info : in tae wpt.event. context. ptr) is 
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begin 
put, line("cancelling designer deletion"); 


-- do nothing 
tae wpt.Wpt PanelErase(info.panel. id); 


end confirm no; 


procedure s select s select item (info : in 
tae wpt.event context, ptr) is 
value : array (1..1) of taeint; 
count : taeint; 


begin 

text_io.put (“Panel s_select, parm s_select_1tem ss cee 
s 

tae vm.Vm Extract Count (info.parm ptr, count); 

JUNE <> 0 chen 
text _io.put_ line (none"); 

else 
tae vm.Vm Extract IVAL (info.parm ptr, 1, value(1)); 
text io.put line (taeint'image(value(1))); 

taeint io.put(Name3, (value(1))); 


end if; 
put. line Ne 
EC 
put. line("ECS operation complete"); 


tae wpt.Wpt PanelErase(info.panel id); 
end s select s select, item; 


procedure showstep s select item (info : in 
tae wpt.event, context ptr) is 
value : array (1..1) of taeint; 
count : taeint; 


begin 

text io.put ("Panel showstep, parm s select, item: value = 
Ms 

Cae vm.Vm-Exrtract Count (into paren peana 
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1f count <= 0 then 
text ioò.put line ("none"); 

else 
tae vm.Vm Extract IVAL (info.parm ptr, 1, value(1)); 
text io.put, line (taeint'image(value(1))); 

end if; 


taeint io.put(Name3, (value(1))); 
step number :- integer(value(1)); 


CELEC TOR :- 3; 
ECS1; -- this creates a file called 'ddbdisplay' and puts all the 
step 


-- info in the file 
Spek STEP INFO; 


-- now create the new window 


tae wpt.Wpt PanelErase(showstep info.panel. id); 
if show, info.panel. id - NULL PANEL ID then 
tae wpt.Wpt NewPanel ("", show. info.target, 
show. info.view, 
X Windows.Null, Window, show. info, 
tae wpt.WPT PREFERRED, 
show. info.panel id); 
else 
tae wpt.Wpt SetPanelState ( 
show info.panel id, tae wpt.WPT PREFERRED); 
end if; 


-- make sure that the panel items are cleared 
ftor a in MAX mone INPUTS loop 


TAE_Wpt .Wpt_SetStringConstraints(show_info.panel_id, 
"sec_ input", Taelnt(1), 
secondary. inputs); 


TAE Wpt.Wpt SetStringConstraints(show info.panel. id, 
"affected", TaeInt(i), affected modules); 


end loop; 
Tae Wpt.Wpt SetString(show info.panel. id,"base version", 
base version); 
Tae Wpt.Wpt SetIntg(show info.panel id,"est duration", 
Taeint(est duration)); 
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Tae Wpt.Wpt SetString(show info.panel id,"exp. level", 
expertise level); 

Tae_Wpt .Wpt_SetIntg(show_info.panel_id, "priority", 
Taeine(priorit vomi 

Tae_Wpt .Wpt_SetString(show_info.panel_id, "designer", 
designer); 

Tae_Wpt .Wpt_SetString(show_info.panel_id, "deadline", 
deadline) ; 

Tae Wpt.Wpt SetString(show info.panel. id,"start, time", 
Start, time); 

Tae Wpt.Wpt. SetString(show. info.panel, id,"finish time", 
finish, time); 

Tae Wpt.Wpt SetString(show. info.panel. id,"pri input", 
primary input); 

Tae Wpt.Wpt SetIntg(show info.panel. id,"step number", 
taeintí(step number)); 

Tae Wpt.Wpt SetString(show info.panel. id,"sub steps", 
sub, steps); 

Tae_Wpt.Wpt_SetString(show_info.panel_id, "predecessors", 
predecessors); 


-- read from file created by ECS1 into TAE variables 
-- for display in 'show' panel. 


text io.put line("opening file"); 


text 10.0PEN(data. file, 
text Io IN PIDE "dd5bdusphi 


text_10.put_line("reading from file"); 


text io.get line(data file,base version,length); 

for i in léngth+1..64 loop 
base_version(i):=' '; 

end loop; 

get (data_file,est_duration) ; 

skip_line(data_file) ; 

get (data_file,priority) ; 

skip_line(data_file) ; 


text io.get line(data file,expertise level,length); 
for 1 in length+1..24Mo00p 
expertise level(i):-' '; 
end loop; 
text_10.get_line(data_file,status, length); 
for 1 in length+1..24 loop 
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status (1): 
end loop; 
text_io.get_line(data_file, designer, length) ; 
for 1 in length+1..24 loop 
desqgognemsuem.-!' '; 
end loop; 
text io.get line(data, file,deadline,length); 
for 1 in length+1..24 loop 
deadianetiy.=" *; 
end loop; 
text_io.get_line(data_file, start_time, length) ; 
for 1 in length+1..24 loop 
Start_time(i):=' '; 
end loop; 
text_io.get_line(data_file, finish_time, length) ; 
for i in lengthtl..24 loop 
Gupushetrmeij)et ^ 
end loop; 
text io.get line(data, file,primary. input,lengtn); 
for 1 in length+1..64 loop 
primary pu S) t E 
end loop; 


-- read number of secondary inputs followed by secondary inputs 


get(data, file,counter); skip line(data file); 
if counter > 0 then 
for 1i in 1..counter loop 


text_io.get_line(data_file,secondary_inputs(1).all,leng 
ios 
for 3 in length+1..64 loop 
secondary_inputs (1) (jJ):=' '; 
end loop; 


TAE_Wpt .Wpt_SetStringConstraints(show_info.panel_id, 
"Sec input", TaeInt(1i), 


secondary. inputs); 


end loop; 
end if; 


-- now read number of affected modules followed by affectecd 
modules 


get(data file,counter); skip line(data. file); 
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if counter » 0 then 
for i in L counters i oop 


text io.get line(data file,affected modules(i).all,leng 
tm 
for j in length-«1..64 loop 
affected modules (a) (3) 3-7 E 
end loop; 


TAE Wpt.Wpt SetStringConstraints(show info.panel id, 
"affected", TaeInt(i), affected modules); 
end loop; 
enc s 


get(data file,counter); 
if counter » 0 then skip line(data file); 


get line(data file,sub steps,length); 
else skip line(data file); 
end if; 


get (data_fi1le,counter); 
if counter > 0 then skip line(data, file); 


get line(data, file,predecessors,length); 
end if; 


text_10.put_line("done reading, writing to panel"); 
text io.put line("done writing to panel, closing file"); 
text io.CLOSE(data file); 
-- now write all the new step information into the TAE window 


Tae Wpt.Wpt SetString(show info.panel. id,"base version", 
base version); 

Tae Wpt.Wpt SetIntg(show. info.panel. id,"est duration", 
Taeint(est duration)); 

Tae Wpt.Wpt SetString(show info.panel. id,"exp level", 
expertise level); 

Tae Wpt.Wpt SetIntg(show info.panel. id, "priority", 
Taeint(priority)); 

Tae Wpt.Wpt SetString(show info.panel. id,"designer", 
designer); 

Tae Wpt.Wpt SetString(show. info.panel. id, "deadline", 
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AAA 


deadline); 

Tae Wpt.Wpt SetString(show info.panel id,"start time", 
start time); 

Tae Wpt.Wpt SetString(show info.panel. id,"finish time", 
finish_time); 

Tae_Wpt.Wpt_SetString(show_info.panel_id,"pri_input", 
primary. input); 

Tae Wpt.Wpt SetIntg(show info.panel id,"step number", 
value(1)); 

Tae Wpt.Wpt SetString(show info.panel. id,"sub steps", 
sub steps); 

Tae Wpt.Wpt SetString(show. info.panel. id,"predecessors", 
predecessors); 


exception 


when text 10.NAME ERROR => 

text io.put line("ERROR: non-existent transfer file 
(probably 'ddiesasplay')."); 
when text io.END. ERROR => 

text. io.put, line("ERROR: corrupt transfer file 

(probably 'ddbdisplay')."); 

if is. open(data, file) then close(data file); end if; 
when text 10.STATUS ERROR => 

if is. open(data file) then close(data file); end if; 


end showstep s select. item; 


procedure show step number (info : in tae wpt.event context ptr) 
is 
begin 
null 
end show step number; 
procedure show show finish (info : in tae wpt.event context ptr) 
is 
value : array (1..1) of string (1..tae taeconf.STRINGSIZE); 
count : taeint; 
begin 


text lo.put ("Panel show, parm show finish: value = "); 
coec ymm Ezera ee Count inro. parm ptr, count); 


DO 


if counti hen 
text io.put line ("none"); 

else 
tae vm.Vm Extract- SVAL (info.pamrm, per, I, valus (EE 
text io.put line (value(1)); 

end if; 

tae wpt.Wpt PanelErase(info.panel. id); 

end show. show finish; 


procedure textl1 display. done (info : in tae wpt.event context ptr) 


is 
begin 
SELECTOR := 13; -- this selection erases the transfer file 
-- (currently 'ddbdisplay') for its next use 
EGS 


tae wpt.Wpt PanelErase(info.panel. id); 
end textl1 display. done; 


procedure textl text item 1 (info : in tae, wpt.event, context. ptr) 
1s 


begin 
null; 
end textl text item 1; 
procedure steptype type selection (info : in 


tae wpt.event context ptr) is 
value : array (1..1) of string (1..tae,taeconf.STRINGSEZE)s 


count : taeint; 
begin 
SELECTOR = a7) 


text io.put ("Panel steptype, parm type selection: value = 
us 
tae vm.Vm Extract Count (uinfo.parm ptt comme): 
if count <> Orhan 
text 1o.put line ("none"); 
else 
tae vm.Vm Extract SVAL (info.parm ptr, 1, value(1)); 
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text_io.put_line (value(1)); 
end if; 
1f (FALSE) then null; 
elsif s_equal (value(1), "all") then 
ES 1..3) :- "all"; 
formimin A. 64 ole) o 
Name3(1):=! '; 
end loop; 
el 
if info.panel_id = NULL_PANEL_ID then 
tae wpt.Wpt NewPanel ("", info.target, info.view, 
X Windows.Null. Window, info, tae wpt.WPT INVISIBLE, 
info.panel id); 
else 
tae wpt.Wpt SetPanelState ( 
info.panel id, tae wpt.WPT INVISIBLE); 
end if; 
if textil info.panel id - NULL PANEL ID then 
tae wpt.Wpt NewPanel ("", textl info.target, 
textl info.view, 
X Windows.Null Window, textil info, 
tae wpt.WPT PREFERRED, 
textl1 info.panel id); 
else 
tae wpt.Wpt SetPanelState ( 
textl info.panel id, tae wpt.WPT PREFERRED); 
end if; 
elsif s equal (value(1), "top") then 
Ramen. .3) := "top"; 
for r Iin 4A Eege 
Name3 (i1):=' '; 
end loop; 
ERES: 
if info.panel id = NULL_PANEL_ID then 
tae wpt.Wpt NewPanel ("", info.target, info.view, 
X Windows.Null Window, info, tae wpt.WPT INVISIBLE, 
info.panel. id); 
else 
tae wpt.Wpt SetPanelState ( 
info.panel id, tae wpt.WPT INVISIBLE); 


end if; 
1f textl info.panel id - NULL PANEL ID then 
tae wpt.Wpt NewPanel ("", textl1 info.target, 


textl info.view, 
X Windows.Null Window, textl1 info, 
tae wpt.WPT PREFERRED, 
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texti info.panel id), 
else 
tae wpt.Wpt SetPanelState ( 
textl info.panel id, tae wpt.WPT PREFERRED); 


end if; 
elsif s equal (value(1), "proposed") then 
Name3 (1..8) := "proposed"; 
for x in 9..64 190p 
Name3(1):=' '; 
end loop; 
ECS; 
if info.panel_id = NULL_PANEL_ID then 
tae wpt.Wpt NewPanel ("", info.target, info.view, 
X Windows.Null. Window, info, tae wpt.WPT INVISIBLE, 
info.panel id); 
else 
tae wpt.Wpt SetPanelState ( 
info.panel id, tae wpt.WPT INVISIBLE); 
end if; 
if textl info.panel. id - NULL. PANEL ID then 
tae wpt.Wpt NewPanel ("", textl info.target, 
textl info.view, 
X Windows.Null Window, textil info, 
tae wpt.WPT PREFERRED, 
textl info.panel id); 
else 
tae wpt.Wpt SetPanelState ( 
textl info.panel, id, tae wpt.WPT PREFERRED); 
end if; 
elsif s equal (value(1), "approved") then 
Name3 (1.28) == approved": 
for iin 9..64 leap 
Name3(1):=' '; 
end loop; 
EC 


if info.panel, id - NULL. PANEL ID then 
tae wpt.Wpt NewPanel ("", info.target, info.view, 
X Windows.Null Window, info, tae wpt.WPT INVISIBLE, 
info.panel id); 
else 
tae wpt.Wpt SetPanelState ( 
info.panel, id, tae wpt.WPT INVISIBLE); 


end if; 
if textl info.panel id - NULL. PANEL ID then 
tae wpt.Wpt NewPanel ("", textl1 info.target, 


textl info.view, 
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X Windows.Null. Window, textl. info, 
Cae NPE. WPT PREFERRED, 
textl info.panel id); 
else 
tae wpt.Wpt SetPanelState ( 
textl info.panel id, tae wpt.WPT PREFERRED); 


end if; 
elsif s equal (value(1), "scheduled") then 
Name3 (1..9) := "scheduled"; 
for 1 in 10..64 Woop 
Names) 101 
end loop; 
BECSI; 
if info.panel_id = NULL_PANEL_ID then 
tae_wpt.Wpt_NewPanel ("", info.target, info.view, 
X Windows.Null, Window, info, tae wpt.WPT INVISIBLE, 
info.pane] mid); 
else 
tae_wpt.Wpt_SetPanelState ( 
info.panel id, tae wpt.WPT INVISIBLE); 
end if; 
if textl_info.panel_id = NULL_PANEL_ID then 
tae_wpt.Wpt_NewPanel ("", textl_info.target, 
textl_info.view, 
X Windows.Null. Window, textl. info, 
tae wpt.WPT PREFERRED, 
textl info.panel id); 
else 
tae wpt.Wpt SetPanelState ( 
textl info.panel, id, tae wpt.WPT PREFERRED); 
end if; 
elsif s equal (value(1), "assigned") then 
Name3(1..8) :- "assigned"; 
for i im 9..64 loop 
Name3 (1):=' '; 
end loop; 
BCSI; 


if info.panel_id = NULL_PANEL_ID then 
tae_wpt.Wpt_NewPanel ("", info.target, info.view, 
X Windows.Null Window, info, tae wpt.WPT INVISIBLE, 
info.panel. id); 
else 
tae wpt.Wpt SetPanelState ( 
info.panel. id, tae wpt.WPT INVISIBLE); 
end if; 
if textl, info.panel, id zs NULL. PANEL ID then 
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tae wpt.Wpt NewPanel ("", textl, info.target, 
textl info.view, 
X Windows.Null, Window, textil, info, 
tae wpt.WPT PREFERRED, 
textl info.panel id); 
else 
tae wpt.Wpt SetPanelState ( 
textl info.panel id, tae wpt.WPT PREFERRED); 


end if; 
elsif s equal (value(1), "completed") then 
Name311..9) := "completed 
fOr isan 109096410957 
Names (1): =) = 
end loop; 
EMS Le; 
if info.panel_id = NULL_PANEL_ID then 
tae_wpt.Wpt_NewPanel ("", info.target, info.view, 
X Windows.Null, Window, info, tae_wpt.WPT_INVISIBLE, 
info.panel. id); 
else 
tae wpt.Wpt SetPanelState ( 
info.panel id, tae wpt.WPT INVISIBLE); 
end if; 
if textl, info.panel. id - NULL. PANEL. ID then 
tae wpt.Wpt NewPanel ("", textl, info.target, 
textl, info.view, 
X Windows.Null Window, textl info, 
tae wpt.WPT PREFERRED, 
textl info.panel, id); 
else 
tae wpt.Wpt SetPanelState ( 
textl info.panel id, tae, wpt.WPT PREFERRED); 
end if; 
elsif s. equal (value(1), "abandoned") then 
Name3(1..9) := "abandoned"; 
for 1 in 107.64 99D 
Name3(1):=' '; 
end loop; 
BECSI; 


1f info.panel_id = NULL_PANEL_ID then 
tae wpt.Wpt NewPanel ("", info.target, info.view, 
X Windows.Null Window, info, tae wpt.WPT INVISIBLE, 
info panellid), 
else 
tae wpt.Wpt SetPanelState ( 
info.panel id, tae wpt.WPT INVISIBLE); 
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end if; 
if textl_info.panel_id = NULL_PANEL_ID then 
tae wpt.Wpt NewPanel ("", textl info.target, 
text ll info.view, 
X Windows.Null Window, textl info, 
tae wpt.WPT PREFERRED, 
textl info.panel. id); 
else 
tae wpt.Wpt SetPanelState ( 
textl info.panel id, tae wpt.WPT PREFERRED); 
end if; 
end if; 
end steptype type selection; 


procedure editnum s select item (info : in 
tae wpt.event context ptr) is 
value : array (1..1) of taeint; 
count : taeint; 


begin 
text io.put ("Panel editnum, parm s select item: value - "); 

tae vm.Vm Extract, Count (info.parm ptr, count); 

DE Count «--0 then 
text io.put line ("none"); 

else 
tae vm.Vm Extract IVAL (info.parm ptr, 1, value(1)); 
text io.put, line (taeint'image(value(1))); 

End if; 

tae wpt.Wpt PanelErase(info.panel id); 


-- write step info to transfer file 


taeint io.put(Name3, (value(1))); 
step number :- integer(value(1)); 


DESEE TOR :- 3; 
Bes i; 
editing_or_creating := editing; 


EDLEARSSTEP INFO; 
-- create new panel 


if editstep info.panel. id - NULL. PANEL ID then 
tae wpt.Wpt NewPanel ("", editstep info.target, 
editstep info.view, 
X Windows.Null Window, editstep info, 
tae wpt.WPT PREFERRED, 
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editstep info.panel. id); 
else 
tae wpt.Wpt SetPanelState ( 
editstep info.panel id, tae wpt.WPT PREFERRED); 
end ir: 


-- make sure that the panel items are cleared 
for i in 4 .MAX SEC. INPUTS loop 


TAE Wpt.Wpt SetStringConstraints(editstep info.panel., id 
"sec input", Taecine (ie 
secondary inputs); 


TAE Wpt.Wpt SetStringConstraints(editstep info.panel, id 


f 


"affected", TaeInt(i), affected modules); 


end loop; 


Tae Wpt.Wpt SetString(editstep info.panel. id,"base vers 
TO 
base version); 
Tae Wpt.Wpt SetIntg(editstep info.panel. id,"est duration", 
Taeint(est duratucmys 
Tae Wpt.Wpt SetString(editstep info.panel. id,"exp level", 
expertise level); 
Tae_Wpt .Wpt_SetIntg(editstep_info.panel_id, "priority", 
Taeint (priority) ); 
Tae_Wpt .Wpt_SetString(editstep_info.panel_id, "designer", 
designer); 
Tae_Wpt .Wpt_SetString(editstep_info.panel_id, "deadline", 
deadline) ; 
Tae Wpt.Wpt SetString(editstep info.panel. id,"start, time", 
start time); 
Tae Wpt.Wpt SetString(editstep info.panel.id,"finish time", 
finish time); 
Tae Wpt.Wpt SetString(editstep info.panel. id,"pri. input", 
primary. input); 
Tae Wort wot SetIntg(editstep info.panel id,"step number", 
taeint(step number)); 
Tae Wpt.Wpt SetString(editstep info.panel. id," "sub steps", 
sub steps); 
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Tae Wpt.Wpt SetString(editstep info.panel id,"predecess 
ors", 
predecessors); 


-- now read the file 
text io.put line("opening file"); 


text io.OPEN(data file, 
text 10.IN FILE,"ddbdisplay"); 


text io.put line("reading from file"); 


text io.get line(data, file,base. version,length); 

for i in length. 64 loop 
base_version(i):=' '; 

end loop; 

get (data_file,est_duration); 

Skip line(data file); 

get (data, file,priority); 

skip line (data, file); 


text io.get line(data file,expertise level,length); 

for i in length+1..24 loop 

expertise level(i):-' '; 
end loop; 
text io.get line(data file,status,length); 
for 1 in length+1..24 loop 

Staeuct iy 2]. ls 
end loop; 
text_io.get_line(data_file, designer, length) ; 
Pome inelength+l...24 loop 

designer(i):=' '; 
end loop; 
text_1o.get_line(data_file, deadline, length); 
for 1 in length+1..24 loop 

deadline(i):s' '; 
end loop; 

text_10.get_line(data_file,start_time, length); 

for 1 in length+1..24 loop 

startitime(i):=" *; 
end loop; 

text_10.get_line(data_file, finish _time, length); 

oa terna reese 
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finish cime (Ti: ue 
end loop; 
text_10.get_line(data_file, primary_input, length} ; 
for 1 in length+1..64 loop 
Drimaryempuscjy E 2 
end loop; 


-- read number of secondary inputs followed by secondary inputs 


get(data file,counter); skip line(data, file); 
if counter > 0 then 
tor Sr ere 


text io.get line(data, file,secondary inputs(i).all,leng 
ELE 
for j in length-«1..64 loop 
secondary inputs (1): = '; 
end loop; 


TAE Wpt.Wpt SetStringConstraints(editstep info.panel id 
"sec anpue, Tacint (ae 
secondary_inputs) ; 


end loop; 
end if; 


-- now read number of affected modules followed by affectecd 


modules 


get(data file,counter); skip line(data file); 
if counter » 0 then 
for i in l49896unter""w'oop 


text io.get line(data, file,affected modules(i).all,leng 
IE 
for j in length ie o4 soo 
affected modules(i)(j):s' '; 
end loop; 


TAE Wpt.Wpt SetStringConstraints(editstep info.panel. id 


f 


"affected", TaeInt(i), affected modules); 
end loop; 
end if; 
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get (data, file,counter); 
1f counter > 0 then skip lineídata file): 


get_line(data_file,sub_steps, length) ; 
else skip line(data. file); 
end if; 


get(data file,counter); 
if counter > 0 then skip line(data file); 


get line(data file,predecessors,length); 
eme 


text 1o.put line("done reading, writing to panel"); 
text io.put line("done writing to panel, closing file"); 
text. 10.CLOSE(data file); 


-- now write all the step information into the TAE window 


Tae Wpt.Wpt SetString(editstep info.panel id,"base vers 
acm 
base version); 
Tae Wpt.Wpt SetIntg(editstep info.panel, id,"est duration", 
Taeint (est_duration)); 
Tae Wpt.Wpt SetString(editstep info.panel. id,"exp level", 
expertise level); 
Tae_Wpt .Wpt_SetIntg(editstep_info.panel_id, "priority", 
Taeint (priority) ); 
Tae_Wpt .Wpt_SetString(editstep_info.panel_id, "designer", 
designer); 
Tae_Wpt .Wpt_SetString(editstep_info.panel_id, "deadline", 
deadline); 
Tae Wpt.Wpt SetString(editstep info.panel. id,"start time", 
start, time); 
Tae Wpt.Wpt SetString(editstep info.panel, id,"finish time", 
finish time); 
Tae Wpt.Wpt, SetString(editstep info.panel id,"pri input", 
primary 1nput); 
Tae Wpt.Wpt SetIntg(editstep info.panel id,"step number", 
value(1))}; 
Tae_Wpt.Wpt_SetString(editstep_info.panel_id,"sub_steps", 
sub steps); 
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Tae Wpt.Wpt SetString(editstep info.panel. id,"predecess 
OI SUO 


predecessors); 


exception 


when text 10.NAME ERROR -» 


text_10.put_line("ERROR: non-existent transfer file 
(probably 'ddbdisplay')."); 
when text 10.END ERROR => 


text 1o.put line("ERROR: corrupt transfer file 
(probably “ddbdasolay (Jia = 


if is_open(data_file) then close(data_file); end if; 
when text_10.STATUS_ERROR => 


if is open(data file) then close(data file); end if; 
end editnum s select. item; 


c END EVENT HANDLERs 


end ddb interface support; 


-- ENDFILE: ddb interface support. body.a 


mm ` zm ` emm ` mm pe ` mmm ` wm mm A emm emm emm emm emm emm em mm ` emm ` emm emm ` emm em emm em ` emm ` emm ` emm emm ` mm ` emm emm — ` emm ` emm A A A A — em ` emm emm ` emm M A A A emm ` emm emm ` mp ts mmm RÉP emm ` emm ` mmm mmm mmm m A 


-- Main Program 


begin 
f_force_lower (FALSE); -- permit upper/lowercase file names 
tae wpt.Wpt Init ("",theDisplay); 


tae wpt.Wpt NewEvent (wptEvent); 


initializePanels ("ddb interface.res"), -- single call 
-- main event loop 


EVENT LOOP: 
loop 


tae wpt.Wpt NextEvent (wptEvent, etype); -- get next 
event 
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-- NOTE: This case statement includes STUBs for non-WPT PARM EVENT 
events. 


Case etype is 


when wpt eventtype'first .. -1 -» null; 
-- iterate loop on Wpt NextEvent error 


EENUUSPICADL CASE: Panedj€Event (WPT PARM EVENT) 


when tae wpt.WPT PARM EVENT => 

-- You can comment out the following "put" call. 

-- The appropriate EVENT HANDLER finishes the message. 
text io.put ( "Event: WPT PARM EVENT, " ); 


-- Panel event has occurred. 
-- Get parm name and then call appropriate 
EVENT HANDLER. 


=> CAUTION: 
== DO NOT call Wpt_Extract_Parm_xEvent from any 
other branch 
-- of this "case" statement or you'll get 
"storage error". 
tae wpt.Wpt Extract Context (wptEvent, user, ptr); 
tae wpt.Wpt Extract Parm (wptEvent, 
user ptr.parm name); 
tae wpt.Wpt Extract Data (wptEvent, 
user ptr.datavm ptr); 
tae vm.Vm Find (user ptr.datavm ptr, 
user ptr.parm name, 
user ptr.parm ptr); 


-- dummy if to ease code generation 
SEN SEAbOB chen null; 


-- WPT PARM EVENT, BEGIN panel main 


elsif tae wpt."-" (user ptr, main info) then 
if (FALSE) then null; -- another dummy if 
-- determine appropriate EVENT_HANDLER for 
this item 
elsif s_equal ("selection_1", 
user_ptr.parm_name) then 
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main selection 1 (user. ptr); 
end if; -- END panel main 


-- WPT PARM EVENT, BEGIN panel editstep 


elsif tae wpt."-" (user ptr, editstep info) then 
if (FALSE) then null; -- another dummy if 
-- determine appropriate EVENT HANDLER for 
this item 
elsif s equal ("base version", 
user ptr.parm name) then 
editstep base version (user. ptr); 
elsif s equal ("pri input", user ptr.parm name) 
then 
editstep pri. input (user. ptr); 
elsif s equal ("predecessors", 
user ptr.parm name) then 
editstep predecessors (user. ptr); 
elsif s equal ("priority", user ptr.parm name) 


then 
editstep priority (user. ptr); 
elsif s, equal ("exp level", user ptr.parm name) 
then 
editstep exp level (user ptr); 
elsif s equal ("deadline", user ptr.parm name) 
then 


editstep deadline (user.ptr); 
elsif s equal ("est duration", 
user ptr.parm name) then 
editstep est, duration (user. ptr); 
elsif s equal ("sec input", user ptr.parm name) 


then 
editstep sec input (user. ptr); 
elsif s equal ("'affected", user ptr.parm name) 
then 
editstep affected (user. ptr); 
elsif s equal ("return", user ptr.parm name) 
then 


editstep return (user. ptr); 
elsif s equal ("apply. step", 
user ptr.parm name) then 
editstep apply step (user ptr); 
elsif s equal ("cancel step", 
user ptr.parm name) then 
editstep. cancel step (user. ptr); 
end if; -- END panel editstep 
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-- WPT PARM EVENT, BEGIN panel editteam 


elsif tae wpt."-" (user ptr, editteam info) then 
if (FALSE) then null; -- another dummy if 
-- determine appropriate EVENT HANDLER for 
this item 
elsif s equal ("name", user ptr.parm name) then 
editteam name (user. ptr); 


elsif s equal ("ex opt", user ptr.parm name) 
then 
editteam ex opt (user. ptr); 
elsif s equal ("d cancel", user ptr.parm name) 
then 
editteam d cancel (user. ptr); 
elsif s equal ("designers", user ptr.parm name) 
then 


editteam designers (user ptr); 
elsif s equal ("selection 3", 
user ptr.parm name) then 
editteam selection 3 (user. ptr); 
end if; -- END panel editteam 


-- WPT PARM EVENT, BEGIN panel confirm 


elsif tae wpt."-" (user ptr, confirm info) then 
FALSE then null; -- another dummy if 
-- determine appropriate EVENT HANDLER for 
this item 

elsif s equal ("yes", user ptr.parm name) then 
confirm yes (user. ptr); 

elsif s equal ("no", user ptr.parm name) then 
confirm ne» (user ptr); 

end if; -- END panel confirm 


-- WPT PARM EVENT, BEGIN panel s select 


elsif tae wpt."-" (user ptr, s select info) then 
uE (FALSE) then null; -- another dummy if 
-- determine appropriate EVENT HANDLER for 
this item 
elsif s equal ("s select, item", 
user ptr.parm name) then 
S select s select item (user ptr); 
end if; -- END panel s. select 
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-- WPT PARM EVENT, BEGIN panel showstep 


elsif tae wpt."z" (user ptr, showstep info) then 
if (FALSE) then null; -- another dummy if 
-- determine appropriate EVENT HANDLER for 
this item 
elsif s, equal ("s select, item", 
user ptr.parm name) then 
showstep s select, item (user. ptr); 
end if; -- END panel showstep 


-- WPT PARM EVENT, BEGIN panel show 


elsif tae wpt."-" (user ptr, show info) then 
if (FALSE) then null; -- another dummy if 
-- determine appropriate EVENT_HANDLER for 
this item 
elsif s, equal ("step, number", 
user ptr.parm name) then 
show step number (user. ptr); 
elsif s, equal ("show, finish", 
user ptr.parm name) then 
show. show. finish (user. ptr); 
end if; -- END panel show 


-- WPT PARM EVENT, BEGIN panel texti1 


elsif tae wpt."-z" (user ptr, textl info) then 
if (FALSE) then null; -- another dummy if 
-- determine appropriate EVENT HANDLER for 
this item 
elsif s equal ("display done", 
user ptr.parm name) then 
textl, display, done (user. ptr); 
elsif s equal ("text item 1", 
user ptr.parm name) then 
textl text item 1 (user. ptr); 
end if; -- END panel text1 


-- WPT PARM EVENT, BEGIN panel steptype 


elsif tae wpt."-z" (user ptr, steptype info) then 
if (FALSE) then null; -- another dummy if 
-- determine appropriate EVENT_HANDLER for 
this item 
elsif s_equal ("type_selection", 
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user ptr.parm name) then 
sSteptype type selection (user ptr); 
end if; -- END panel steptype 


-- WPT PARM EVENT, BEGIN panel editnum 


elsif tae wpt."-" (user ptr, editnum info) then 
if (FALSE) then null; -- another dummy if 
-- determine appropriate EVENT HANDLER for 
this item 
elsif s equal ("s select item", 
user ptr.parm name) then 
editnum s select item (user ptr); 


end if; -- END panel editnum 
else 
text io.put, line ("unexpected event from wpt!"); 
exit; -- or raise an exception, but compiler 
warns if no exit 
end if; 


when tae wpt.WPT FILE EVENT -» 
text io.put line ("STUB: Event 
WET ERMESEVENT"):; 


-- Use Wpt_AddEvent and Wpt_RemoveEvent and 
-- Wpt Extract EventSource and 
Wpt Extract EventMask 


when tae wpt.WPT TIMEOUT EVENT -» 
text io.put line ("STUB: Event 
WPT TIMEOUT EVENT"); 


-- Use Wpt SetTimeOut for this 
-- LEAST LIKELY cases follow: 
when tae wpt.WPT WINDOW EVENT -» null ; 
-- WPT WINDOW EVENT can be caused by user 
acknowledgement 
-- of a Wpt PanelMessage or windows which you 
-- directly create with X (not TAE panels). 


-- You MIGHT want to use Wpt Extract xEvent Type 
here. 
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-- DO NOT use Wpt Extract Parm xEvent since Jj 
this is not | 
-- a WPT PARM EVENT; you'll get a "storage | 
error | 


when tae_wpt.WPT_HELP_EVENT => -- OR null ; 
text io.put("ERROR: WPT HELP EVENTOS 

text io.put line("should never see; reserved f 

for TAE use"); 


when tae wpt.WPT INTERRUPT EVENT => -- OR null ; 
text io.put("ERROR: WPT INTERRUPT EVENT: "); 

text 1io.put line("should never see; reserved 
for TAE use"); | 





when OTHERS => 
text io.put ("FATAL ERROR: Unknown Wpt. NextEvent 

Event Type: "); 
text io.put (wpt eventtype'image(etype) ) ; 


text_io.put_line (" ... Forcing ex memi 
exit; -- or raise an exception 


end case; -- NOTE: Do not add statements between here 
and "end loop EVENT LOOP" 


end loop EVENT LOOP; 


end ddb interface; 


414 


D. TEST DATA AND TEST RESULTS 









+ E Evolution Control System: |: dE 






Selection 
Q show prototypes 
Q show steps 

Q show step details 
Q show schedule 
Q create prototype 
Q create step 

Q edit step => 

> edit team => 

Q approve step 

Q schedule step 

Q commit step 

> suspend step 

Q abandon step 

Q quit 


















FIGURE 33. Screen image of the ECS main menu (manager) 
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FIGURE 35. Screen image of step 1 details after it has been created 
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FIGURE 36. Screen image of step 2 details after it has been created 
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FIGURE 38. Screen image of step 4 details after it has been created 
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FIGURE 39. Screen image of step 5 details after it has been created 
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FIGURE 40. Screen image of step 1 details after it has been approved 
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FIGURE 41. Screen image of step 6 details (substep of step 1) 
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FIGURE 42. Screen image of step 7 details (substep of step 1) 
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FIGURE 43. Screen image of step 8 details (substep of step 1) 
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FIGURE 44, Image of step 2 details after it has been approved) 
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FIGURE 45. Image of step 9 details (substep of step 2) 
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FIGURE 46. Image of step 10 details (substep of step 2) 
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FIGURE 47. Image of step 4 details after it has been approved 
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FIGURE 48. Image of step 11 details (substep of step 4) 
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FIGURE 49. Image of step 12 details (substep of step 4) 
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FIGURE 51. Screen image of step 6 after its completion 
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FIGURE 52. Screen image of step 8 after its completion 
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FIGURE 53. Screen image of step 7 after its completion 
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FIGURE 54. Screen image of step 1 after its completion 
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FIGURE 55. Screen image of step 2 after the completion of step 1 
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FIGURE 56. Screen image of step 3 after 


438 


Pprajyur 1osn ogvuvuros2vprojur 1ossn-urajsÁs TEO 


sa[Npoul pajysayye sjndur Airpuoses 


EE —— — o tas A otal 
00:00 €6/00/00 | avg ystuy 00:00 £6/00/00 | awy 31838 9P-60 £6/20/11 | surppreap 
[. selen zttsé T e a soso copa 


[psd dursovpigqur aasn oSvuvuro2vprojul 1osn-ulajsÁS Ic3 yndut Areurtid 


II waiss (El versa oseq 
Leien qne [9H] soquina das 





FIGURE 57. Screen image of step 15 after it has been scheduled 
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FIGURE 58. Screen image of step 3 after the completion of step 1 
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